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ABSTRACT 

This Memorandum describes a computer program tor 
calculating, except for facilities, the required resources and 
related costs ot f oraal advanced pilot training courses. Facilities 
.ire assumed to be inherited and hence are treated as sunk costs. The 
program is based on a previously presented methodology. The first 
three sections of this Meaorandum deal with a general description of 
the program and its operations. Specific operating instructions are 
given in Section IV. In conjunction with Section IV, appendices are 
presented shoving a listing of all prograa variables used in the 
calculations, detailed flow charts ot the program, and a source 
listing [ FORTRAN-IV (IBM 360/365) ] of the program. Prograa outputs 
are discussed in Section V. For related documents see AC 010 340-3Q2 
and AC 010 3U4-3U7. (Author/CK) 
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ln April 1967, the Office of the Assistant Secretary of Defense 
(Manpower and Reserva Affairs) formed a Pilot Advisory Committee to 
study "Pilots as a National Resource." The Committee consisted of the 
Assistant Secretary and a representative of each of the three Services. 
Staff members from Rand were invited to utter.d the early meetings of 
the Committee. The outgrowth was that the Air Force member requested 
Rand to accept r« sponslbility for examining the Air Force pilot train- 
ing process. The objective of. the F.and Pilot Training Study wa3 to 
develop a series of compter models for use In estimating the resources 
required Lo produce pilots and the costs of training them. Further, 
the models were to be designed fov sensitivity analyses and long-range 
planning. 

For the convenience of readers whose Interests may not extend to 
all aspects of the pilot training process, the results of the study 
are presented in eight volumes, as follows: 
Volume 



RK-6080-FR 
RM- 6081- PR 
RM- 6082- PR 
RM- 6083- PR 

RM- 6084- PR 

RM- 6085- PR 
RM- 608 6- PR 



The Pilot Tr&ining Study: Personnel Flow and the 
PILOT Model, by W. E. Moor 

The Pilot Training Study: A User's Guide to the 
PILOT Computer Model, by Lois Littleton. 

The Pilot Training Study: Pre- commissioning 
Training, by J. W. Cook. 

The Pilot Training Study: A Cost-Estimating 
Model for Undergraduate Pilot Training, by 
S. L. Allison. 

The Pilot Training Study: A User's Guide to the 
Undergraduate Pilot Training Computer Cost Model, 
by Lois Littleton. 

The Pilot Training Study: Advanced Pilot Train- 
ing, by P. J. Kennedy. 

The Pilot Trainlrg Study: A Coat-Estimating 
Model for Hvanced Pilot Training, by L, E. 
Knollmeyer . 

The Pilot Training Study; A User's Guide to the 
Advanced Pilot Training Computer Cost Model (APT), 
by H. E. Boren, Jr. 
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Th'.s Memorandum, Volume VIII of the sertes, describes the computer 
program for the Advanced Pilot Training Cost Mode 1 (APT) , which is de- 
signed to be used for estimating the resources and costs required to 
train pilots in formal advanced courses [Combat Crew Training Schools 
(CCTS), Replacement Training Units; (RTU) , or Transport Training Units 
(TTU)]. This model is not designed to cover the types of advanced fly- 
ing training such as proficiency flying, upgrading training, special 
weapons training, and training for miscellaneous types of aircraft for 
which no formal school exists. These types of advanced training ars 
accamplished in less formal programs after the pilot is initially qual- 
ified to fly the particular aircraft involved. 

The procedures described in this Memorandum may be followed with- 
out reference to the other Memorandums in the series. However, for an 
understanding of the purposes for which the cost model was constructed, 
the user will find it useful to read Volumes VI and VII which describe 
the advanced pilot training (APT) program. It is further suggested 
that the user read Volume I for an understanding of the part that APT 
plays in the total process of training USAF pilots. 



*In this Memorandum, the term APT refers to the Advanced Pilot 
Training Computer Cost Model (program). 
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SUMMARY 

This Memorandum describas a computer program (APT) for calculating, 
except for facilities, the required resources and related costs of for- 
mal advanced pilot training courses. Facilities are assumed to be in- 
herited and hence are treated as sunk costs. Tha program is based on 
the methodology presented In RAND Memorandum RM-6086-PR cited in the 
Preface. 

The firs': three sections of thio Memorandum deal with a general 
description of the program and its operations. Specific operating in- 
structions are given in Section IV. In conjunction with Section IV, 
appendices are presented showing a listing of all program variables 
used in the calculations, detailed flow charts of the program, and a 
source listing [FORTRAN-IV (IBM 360/65)] of the program. Program out- 
puts arc discussed in Section V. 
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I. INTROD UCTION 



The APT computer program computes the required resources and at- 
tendant costs for Advanced Pilot Training, given such basic inputs at 
syllabus requirements and numbers of students entering APT from duty 
assignments Involving similar aircraft, from duty assignments Involving 
dissimilar aircraft, from desk jobs, and from undergraduate pilot train- 
ing (UPT). All required facilities (the physical plants) are assumed 
to be Inherited and are treated as sunk costs. Hence, the calculation* 
do not Include any facility construction costs. 

Long and short courses are available In this program for each air- 
craft system. The long course is for students from dissimilar aircraft, 
from UPT, and from desk job3, for whom more extensive training Is re- 
quired. The short course is for students from similar types of aircraft. 
For any aircraft system, the program deals with as many as five cate- 
gories of equipment, namely, three types of training aircraft, simulators, 
and trainers. 

The information presented In this Memorandum is supplementary to 
* 

that presented in RM- 6086- PR. That publication describes In detail the 
methodology employed In the APT model. Since the APT program was de- 
veloped to reflect explicitly that methodology, a detailed line-by- line 
description of the program is not considered to be necessary. Instead, 
this Memorandum deals with a general description of the computer pro- 
gram (Section II), program considerations (Section III), input proce- 
dures (Section IV), and program outputs (Section V). 

The APT computer program is written completely In FORTRAN- IV for 
use on the RAND IBM 360/65 computer system and is totally self-contained. 
Except for the standard input/output devices, it does not require any 
auxiliary tapes or disks and does not use any auxiliary programs. As 
a result, it should be adaptable to other computer systems. 

* 

See Preface. 
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A listing of all variables used in the program calculations Is 
given in Appendix A. Detailed flow charts showing each step of the 
program ar« present in Appendix B. Finally, the FORTRAN- IV source 
program Is listed in Appendix C. 
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II. GENERAL DESCRIPTION 

OPERATION 

The APT computer program Is structured so that a single sees: 
on the computer will process as many runs as desired, or as time per- 
mits. Each run consists of one or more weapon systems for one or more 
years of operation. The program prints the results by weapon system 
for one year at a time. A run may comprise as aany weapon systems and 
years as the user desires or, again, as time permits. A major feature 
of the APT program Is that, within a run, once a complete set of Inputs 
Is entered for the first year of the first weapon system, only changes 
In those inputs need to be entered for succeeding years and for succeed- 
ing weapon systems. Hence, the program ia highly suited to sensitivity 
analyses In which one may wish to determine the effect of input variations. 

One pass Is made through the program for each year of each weapon 
system. Thus, if a run were to consist of 10 weapon systems and IS 
years for each weapon system, 150 passes would bt made through the pro- 
gram for that run. Each pass requires approximately 0.25 second (360/65 
central processing unit time), depending on some of the options exer- 
cised by the user. For each pass, the relevant resources and costs arc 
calculated and printed In prescribed formats. In addition, two optional 
printouts are provided for printing the values of the variables used 
In the program. 

Because of the repetitive nature of many of the calculations, one 
subscripted variable («0 if used for all program variables so that such 
calculations are made with only one set of equations with variable- 
subscripted parameters. Thus, through use of DO- loops In the program, 
the machine goes through ouch calculations as many times as required, 
using the one set of equations and each time Increasing, in prescribed 
Increments, the appropriate parameter subscripts. This Approach re- 
duces the alz« of the program, la terms of both the FORTRAN instructions 
and the Common Block listing of the variables. 
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OPTIONS 

The F variable used in the program Is dimensioned 310, which al- 
lows for both the input and output data. An optional printout is pro- 
vided for listing the F array in tabular form. This listing is labelled 
"Common Dump." It incudes the value of each F variable and the cor- 
responding subscript. Such a listing may be exceedingly useful in the 
analysis of various runs .since much of the data—particularly numbers 
generated in the form of intermediate calculations—do not appear on 
the output pages. With the aid of the Common Dump and the variable 
listing (Appendix A), which also lists the subscript (called address) 
of each F variable, the user can find the value for any subscript so 
listed--hence any input or output variable. The Common Dump is actu- 
ally a permanent record of the values of f.ll of the T variables for any 
pass through the program. 

An alternative method is provided for printing out values of the 
F variables used in the program, in which the address, name, and value 
of the variable are listed on one line. This option has the advantage 
of providing complete information to the user concerning the F vari- 
ables he selects to be listed. Another advantage is that the user may 
select only the variables he desires to be listed. A disadvantage is 
that more pages of output may be required, depending on tae number of 
variables listed. For example, if all 310 variablee are listed, six 
pages are required compared with only one page for the Common Dump 
listing of all variables. Also, this option requires that all 310 cards 
containing the F-variable listing must be entered as input data. 

As stated previously, this model applies only to pilots who are 
trained in formal Advanced Pilot Training Schools. The pilots for whom 
this model is not applicable may be grouped into two categories: those 
who are not trained formally in advanced pilot schools and those who 
are .rained, as required, in small numbers. A substantial number of 
aircraft types is involved in this group of pilots for which either 
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valid coat data ire not available or use of the model is not practical. 
However, the percentage of such aircraft is relatively small (approxi- 
mately 7 percent of the total aircraft inventory). 

If, for a single computer run, the user wishes to account for all 
pilots trained, including those whose costs are not computed in this 
model, he may do so by applying the zero-output designator to this lat- 
ter group of pi'ots. Then, the costs and resources required will be 
printed for all weapon systems except those for which the zero-output 
designator is used. For each of those, the only output is the number 
o£ graduates. 

An option is provided the analyst for calculating the number of 
simulator maintenance and operating personnel. This value may be cal- 
culated either as a function of the number of simulators required or 
as a function of the total number of student simulator hours charged 
to pilot training. This is done automatically in the program by using 
the magnitude of the input variable relating to the number of simulator 
operating and maintenance personnel authorized. If this value is equal 
to, or greater than, 1.0, it is treated as an authorized wrnber per 
simulator. If the value is less than 1.0, it is treated as an author- 
ized number per simulator hour. Hence, depending on its magnitude, 
this input variable is multiplied by either the number of simulators 
required or the number of student simulator uours charged to pilot train- 
ing to give the number of simulator maintenance and operating personnel. 

Finally, an option is provideJ tor setting all input F variables 
to zero. Normally, for each run the values of these variables are re- 
tained from pass to pass so that, as stated previously, the user only 
has to enter changes iti the inputs. However, there may be occasions 
for the user to zero all inp- variables so that he can start a new pass 
with all variables set to zero. This may occur when many years or many 
weapon systems, or both, have been run, and the user finds it difficult 
to keep track of the current values of some of the input variable, 
Initially, all F variables—input and output--are set tc zero; then, 
at the start of succaediig passes through thi program, most of thr> out- 
put variables are set to zero. 




A summary of the designators used to exercise the various program 
options Is given In Table 1. 
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Table 1 
PROGRAM OPTIONS 



Designator 


Variable 


Description 


Dump printout 


F(117) 


o. - 

1.0- 


-Do not print Common Dump 
-Print Common Dump 


Zero-output 


F<118) 


0. - 


-Do not omit all calculations 
except number of graduates 






1.0-- Omit all calculations except 
number of graduates 




F(119) 


0. - 
1.0- 


-Do not zero aJl input variables 

-Zero all input variables after 
printout 


Weapon system 
variable- 
listing 


F(120) 


0. - 
1.0- 


-Variable addresses, names, and 
values not to be listed 

-Variable addresses, names, and 
values to be listed for this 
pa^s through program. F(120) 
is then set to zero. 


Variable-listing 
read (Constant 
input data) 


F(141) 


0. - 
1.0- 


-Addresses and naces of all 
variables not to be read 

-Addresses and names of all 
variables to be read once 


Simulator operating 
and maintenance 
personnel authorized 


?(071) 


21.0 

<1.0 


--Per simulator required 
--Per simulator hour 
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III. PROGRAM CONSIDERATIONS 



FLOW OF O PE RATIONS 

Figure 1 Is a flow chart showing the general flow of operations 
through the program. These operations are described in this section. 

Initially, all input F variables in Common are set to zero. Sev- 
eral other internal indexes are also initialized (for example, page 
number). Next, a title card is read which contains the general title 
for the entire run. The constant input data 0(12 1) . . .F(141) ] , ex- 
cluding F(135), are then entered. These values are referred to as con- 
stant input data because they are usually constant for a run or runs 
and do not vary with weapon system or yaar. However, if the need 
arises, any of them may be treated as a weapon system input and entered 
as such for any pass through the program. Next, the title and yage 
number are printed on a new page. 

If, for at least one of the passes through the program, the user 
will require a listing of the addresses, names, and values of the vari- 
ables, he must enter a 1.0 for the "read" designator in the constant 
input data Cf(J41) = l.O], If this is done , the machine then reads in 
the complete listing of a'.l of che program variables (310 cards) so 
that the addresses and names are stored as alphanumeric information 
for subsequent printouts. This listing is read in only once. On the 
other hand, if this designator is not entered with a value of 1.0 in 
the constant input data, the variable listing of 310 cards must not be 
entered. Next, the current equipment inventories are set to zero. For 
subsequent years of the same weapon system, these values are not set 
to zero but are updated by adding to them the equipment to be procured 
and, in the case of aircraft, subtracting the attrition aircraft. They 
are reset to zero for each new weapon system. All calculations pertain- 
ing to equipment resources, including costs, are always performed through- 
out the program in order of aircraft types 1, 2, and 3 (as applicable); 
simulators; and trainers. 

After the equipment inventories are se •. to zero and other initial- 
isation is completed, the weapon system number and name are read on a 
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Iother initialization 



( READ TITLE \ 
^ FOR RUN J 

( READ CONSTANT^ 
INPUT DATA 

/ PRINT TITLE AND "N 
I PAGE NUMBER ON ] 



1 



CALL SUBROUTINE *£AD 
(READS WEA-ON SYSTEM INPUT 
DATA) F(0C2)...F(I20), Ff 135), 
F(U2)...F(I45), F<2I7)...F(2I9) 



CALL SUBROUTINE EQUIP 
(CALCULATES NUMBER OF 
GRADUATES, AVERAGE NUMBER 
OF STUDENTS PES MAR, STUDENT 
LOAD, TRAINING HOURS, AND 



CALL SUBROUTINE PER5 
(CALCULATES PERSONNEL 
REQUIREMENTS.) 



CALL SUBROUTINE INCO 
(CALCULATES INVESTMENT 
COSTS.) 



CALL SUBROUTINE OPCO 
(CALCULATES OPERATING 
COSTS AND TOTALS.) 



/ READ LISTING OF \ 
/ADDRESSES AND NAMES] 
I OF ALL F VARIABLES I 
V f(M))- : -F(3lC) J 



-0 



READ WEAPON SYSTEM 
NUMBER AND NAME 
ON SEPARATE CARD 



51 TOUTfUTf VARIABLES 
TO ZERO EXCEPT CURRENT 
EQUIPMENT INVENTORIES 
AND VARIOUS PERSONNEL 
CHANGES 




Fig. l--FLow of operations 
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separate card. At this point all of the output variables are set to 
zero except for the current equipment inventories and various personnel 
changes. The remaining major operations involve calling the subroutines 
to perform their specified tasks. First, subroutine READ Is called to 
read In the weapon system Input data [F(002 . . .F(120) , F(135), F(142)... 
F(145), F(217)...F(219)].* Subroutine EQUIP is then called to calcu- 
late the various training hours and equipment requirements. Also, the 
number of graduates, the average number of students per year, and the 
average student loads are calculated in this subroutine since they ar>? 
required for subsequent calculations In the same subroutine. Equipment 
Inventories are then updated In subroutine EQUIP . 

Subroutine PERS Is called next to determine all of the personnel 
requirements Including the Incremental changes from year to year, re- 
quired for certain calculations. All of the Instructor, maintenance, 
administrative, and support personnel are determined In this subroutine, 
These people are further categorized Into rated officers, non-rated 
off leers, airmen, and civilians. 

Following the personnel calculations, subroutine If CO is called 
to determine the Investment costs charged to pilot training. In like 
manner, subroutine OPOO Is called to determine the operating costs ant, 
also the various total costs required for the output summary. All costs 
are calculated In thousands of dollars except for the operating cost 
per graduate, which Is In dollars. Finally, subroutine OUTPUT Is called 
to print the results In prescribed format's. 

Depending on the end-of-data designator and whether all data have 
been processed, t\e path then returns to some earlier portion of the 
MAIN routine and commences the ne\: pass through the program. If one 
year of a weapon system Is completed with rmre years to follow, the 
path returns to the point at which all of the output variables are set 
to zero. If th£' last year of a weapon system hps been completed with 

Initially, all weapon system Input variables were Intended to be 
F(001)...F(120), constant inF"ts to be F(121. . .F(145) , and all output 
variables to be F( 151 . . .F(300) . [f(146). . .F(149) are Internal Indices.] 
However, as modifications were required, it was necessary to add some 
input variables with indexes out of order. This In no way affects the 
operation of entering the data, as will be seen subsequently. 
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mare weapon systems to follow for that run, the path returns to the 
point at which the curient equipment inventories are set to zero. If 
the rui; is completed (with more runs to follow) so that all weapon sys- 
tems have been processed, all of the weapon system inputs are set to 
zero (in subroutine OUTPUT) , and the path returns to an initialization 
point (A in Fig. 1) just before the point where the main title is read 
for the run. Finally, if all data have been processed for all runs, 
a termination statement 2 s printed on a new page, and CALL EXIT is exe- 
cuted by the program ending the job at that point. 



19 



-12- 



IV. INPUT PROCEDURE S 

GENERAL DESCRIPTION * 

Many different sets of data may be entered into the computer, each 
set representing one year of a weapon system. Thus, there must be as 
many sets of Input data as the product of weapon systems and years. 
The end of each s»*". Is signalled by an end-of-data designator. This 
designator Is required for identifying whether the set of data consti- 
tutes the end of a year, a weapon system, a run, or all runs. After 
each set of data Is read, all of the computations are performed on that 
set and the results are printed, before the rext set of data is read 
by the machine. 

As was stated previously, the F-variable airray used in the prograi 
Is dimensioned 310. The subscripts of F are rsferrad to as addresses 
of F. Since F Is the first array listed in Common, l*s addresses rep- 
resent the relative locations of the subscripted F variables In Common. 1 ' 
Thus, F(001) represents the first F variable in Common, F(010) the 
tenth, and F(310) the 310th in Conraon. (Preceding zeros for the ad- 
dresses have no meaning; they are used merely for convenience so that 
all addresses can be represented by three-digit numbers.) 

Basically, the Input procedures are structureo so that the address 
of F Is entered together with the value of the subscripted F as a pair. 
The machine then stores the value In the relative location In Common 
equal to the addvess. For example, If an address of 80 Is entered with 
a value of 0.9, the program performs the following operation: 

F(080) = 0.9. 

INPUT DATA CARDS 

The basic set of data represents one year of a weapon system. The 
first card of the first year of a set of weapon system data must always 



A specific summary on Input data cards and their arrangement for 
one or more runs Is given at the end of this section under Data Card 
A rrangement . 

**The F array is listed In Appendix A. 
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be a title card. This card contains only the number and name of the 
weapon system under consideration. Columns 1-? are reserved for the 
optional entry of the weapon system number (integer value). The wea- 
pon system title is read In cols. 5-44 as alphanumeric Information, 
and the remaining porclone of the card are not used. The weapon sys- 
tem number is stored as F(001) but 1 .3 not used currently in the pro- 
gram or printed in the output. After development of the program, it 
was found that the weapon system number could be entered just as easily 
as alphanumeric information in the title portion and printed out as 
part of the title. However, It Is there as F(001) If the user wishes 
to modify the program to make use of it. Hence, there is no require- 
ment to enter a number in cols. 1-2 of this card. 

The cards following the weapon system title card contain the in- 
put data for one or more years of the weapon system. In entering the 
numerical data, eight pairs of F addresses and the corresponding F val- 
ues may be entered on one card. The address of each variable is en- 
tered as an Integer In specified columns Immediately preceding those 
allotted to the corresponding variable value. These specified columns, 
or fields, for the addresses are three columns wide and start In any 
column ending in "1." Thus, cols. 1-3, 11-13, 21-23, 31-33, 41-43, 
51-53, 61-63, and 71-73 are allotted for the addresses. The correspond- 
ing fields for the F values (real numbers) are six columns wide and 
start In any column ending In 4. Therefore, cols. 4-9, 14-19, 24-29, 
34-39, 44-49, 54-59, 64-69, and 74-79 are reserved for the corresponding 
F values. The implied decimal point location In each "variable" field 
is between the third and fourth columns of those fields-- for example, 
between cols. 6 and 7 or 16 and 17, etc. Of course, a punched decimal 
point will override the implied decimal point location. 

Because the address of any variable Is entered with the value of 
the variable as a pair, the pairs may be entered in any order of address. 
However, the address and the value of the variable must always be kept 
together as a set. Pairs of blank fields (for example, cols. 1-3, 
4-9) are not processed in the program. On the other hand, if addresses 
are entered that are less than zero, or zero with a non-zero value for 
the variable, or greater than 145 (except for 217, 218, and 219, which 



21' 



-14- 



are the aircraft recurring investment cost factors), an error message 
is printed, and the run is terminated at that point. Negative or zero 
numbers are not legitimate numbers for addresses, and an address greate 
than 145 (except for the three addresses noted above) means that an out 
put variable is being entered. 

Figure 2 shows an input keypunch form that may be used to enter 
data for this program. Each fisld contains an address and data (value) 
pair. The vertical dashed lines are the implied decimal point loca- 
tions. Thus, in the data field, three digits are allowed on each side 
of the decimal point for the F value, which are usually sufficient for 
most of the data. This is true because cost data must be entered in 
thousands of dollars except where noted by a dollar sign in the list- 
ing of Appendix A (see address 101, tor example). Inputs noted by a 
dollar sign are entered in dollars. However, as was stated previously, 
those data values requiring more digits may be entered by simply key- 
punching the decimal points to override the implied decimal point loca- 
tions. The cross-hatched columns (10, 20, 30, etc.) are not used, ex- 
cept tc separate the fields. 

A total of 148 inputs is listed in Appendix A [F(OOl) . . .F(145) , 
F(217). . .F(219)L However, F(001) is not used as an input, and the 
20 constant inputs [F(121) . . .F (141) excluding F(135)] are only entered 
once. Therefore, J27 is the maximum number of weapon system inputs 
that vould ever be lequired for one pass through the program (usually 
for the initial, or base case, set of data). Since eight inputs can 
be entered on a card, a total of 127 divided by 8 or 16 data cards 
would be requiied, or 17 including the weapon system title card. 

Since nil inputs are set to zero initially, they will remain zero 
until a value is entered. Note, however, that for subsequent passes, 
if inputs are not entered, their previous values will be retained from 
year to year or fr o m weapon system to weapon system . Therefore, if 
one does not vant the -'alue of an input to be retained for the next 
pass, one must enter a new value or a zero for the input. 

An example of ,m input data card 13 shown in Fig. 3. Here, vari- 
ables with addresses 098 th cough 105 ere entered. Variable with addres 
098 has a value of 900; variable with address 099 has a value of 80; 
variable with address 100 has a value of 0.05, and so on. 
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Fig. 3--Sample data card 



VARIABLE- LISTING SELECTION DESIGNATORS 



Variable-listing selection designators are used to designate which 
variable addresses, names, and values are to be listed when this option 
of listing the F variables Is used. Unless all variables are to be 
listed (described In t'.is next paragraph), four Input cards are used 
each time some of the variables are to be listed. If the column num- 
bers on these four cards are thought of as running continuously from 
card to card, on,> has 1...80 columns on the first card, 81... 160 on 
the second, 161... 240 on the third, and 241... 320 on the fourth card. 
In the program the first 310 columns or these four cards are treated 
as corresponding to the 310 F variables In Common, and a numeral 1 
punched in any of those columns will cause the variable with address 
corresponding to that column to be listed. For example, Is punched 
In cols. 5, 80, and 172 will cause F(005), F(080) , and F(172) to be 
listed. 

If all variables are to be listed, only one card Is required. A 
numeral 9 In column 1 will result In a printout of all F variables. 
This eliminates the necessity of punching Is In all 310 columns. 

The selection designator cards are always entored Immediately af- 
ter the set of vreapon system data for which the variables are to be 
listed. In the set of weapon system data preceding the selection desig- 
nator card(s), the variable F(120) must be entered as 1.0. This causes 
the selection designator cards to be read. Otherwise, F(1?.0) Is left 
at zero, and the selection dtsignators are not entered. It should be 
noted that contrary to the general rule for Input variables, the value 
of F(120) Is always set to zero for the start of the next pass through 
the program- -that Is, a value of 1.0 for F(120) Is not retained for 
the next pass through the program. Therefore, when selection designa- 
tors are to be read for a set of data, F(120) must be entered as 1.0 
In the set of data to which the selection designators apply. This was 
done so that the listing of variables In this form would require a pos- 
itive action by the user. Also, this prevents the Inadvertent carry- 
over of 1.0 for F(120) to the next year for which the user does not 
want the variables listed In this way and thus has not entered the se- 
lection designator cards. 
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EN D- OF - DATA DE S IGNATORS 

There are four dtsignators used to end the reading of a set of 
data for one year of a weapon system. They are three-digit sixes, sev- 
ens, eights, or nines '"•66, 777, 888, 999) and are entered in any of 
the address fields following the last data value entered. Once this 
designator is entered, the remaining fields of the card must be blank. 
A new set of input data must always start on a new card. The designa- 
tor 666 indicates that one year of input data is completed with more 
years to follow for the same weapon system. Hence, the next card con- 
tains only numerical data beginning for the next year. A 777 indicates 
the end of all years for a weapon system with more weapon systems to 
follow. Thus, the next card must be a title card for a new weapon 
system set of data. An 888 indicates the end of a run— thit is, the 
end of data for all years and for all weapon systems of a run — but 
that another run is to follow. Therefore, the next card must be a 
title card for a new run. The cards to follow would then be the sane 
as those for the first run. If a new run is initiated, all weapon sys- 
tem input data are set to zero. The constant input data are retained, 
however. 

For t k e second and subsequent runs, Lucre is a provision for read- 
ing in the constant input data again. If there aire no changes in thesa 
values from the previous run, one card must be entered containing the 
end-of-data designator 666 In any of the address fields (for example, 
cols. 1-3). Then, the previous constant input values will be retailed. 

Finally, a 999 designator indicates that the very last set of data 
has been entered. After this set is processed, the machine prints a 
termination statement on a new page seating that this is the end of 
the final run; h«nce all data have been processed. At that point CALL 
FXIT Is executed, and the Job ii terminated. It is important to note 
that unless the end-of-data designators are entered properly in the 
address fields, the mcchine will continue to read data until no more 
data are available, thus causing premature termination of the Job. 
Since the processing of pairs of blank fields is omitted in the read- 
ing of input data, the end-of-data designator may be entered in 
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cols . 1-3 on a separate card immediately following the s<dt of data to 
which it applies. In some situations, this permits easier manipulation 
of n set of data. 

DATA CARD ARRANGEMENT 

Table 2 summarizes the types of input cards used for the APT pro- 
gram. In conjunction vith Table 2, Table 3 is presented to show the 
arrangement of input data cards for two hypothetical runs. Run 1 con- 
sists of weapon systems A, B, and C, each to be operated for three 
years. Run 2 consists of weapor. systems D and E to be operated for 
two and three years, respectively. A code index of the cards is given 
in Tables 2 and 3 to allow the user to cross reference the cards in 
the two tables. 

For the runs shown in Table 3, the variable listing read desig- 
ner F(141) must be entered as 1.0 in the constant input data since 
the variable listing is to be read next for later printout. Then, in 
the first year data set of weapon system A, the variable listing print 
designator F(120) must be entered as 1.0. This causes the machine to 
read the selection designators next for printing the F-var-'able listing. 
Also, F(117) is entered as 1.0 in that same first year data of weapon 
system A since the Common. Dump is to be printed as well as the variable 
listing. 

Finally, Table 4 is presented to summarize the address and data 
field locations on the data cards. 
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Table 2 
SUMMARY OF INPUT CARDS 



Code 
(see Table 3) 


Type of Card 


Remarks 


1 


Title of Run 


First card of data deck for each 
run. Contains title of run In 
cols 1-80 (alphanumeric informa- 
tion). 


2 


Constant Input Data 


Consists of constant input data 
F(121).. F(141) less F(135) . End- 
of-data designator for this set of 
data is 666(last entry i;i any 
addross field). For second or 
subsequent runs, at least one 

be entered here. If only one 
such card is entered, previous 
constant input data are retained 
for the new run. 


3 


Variable Listing 
(310 cards) 


If F(141) = 1.0 In constant 
input data, the F- variable 
listing of 31C Cc»rds Is entered 
here. This listing Is entered 
only once regardless of number 
of runs made, Each card of this 
listing contains the address 
(cols 1-3) and name (cols 7-72) 
jf the F variable. If F(141) = 
0.0 In the constant input data, 
thie listing is not entered. 


4 


Weapon System Title 


First card of first year of wea- 
pon system data. Contains title 
of weapon system in cols. 5-44. 
No data are entered on this card. 
(Cols. 1-2 were originally reserved 
for weapon system number, a number 
not currently required.) 


5 


Data for One Year 
of Weapon System 


Contains data for one year of a 
weapon system. End-of-data desig- 
nator 666 is used in address field 
at end of this set of data if 
more years of same weapon jystetn 
are to follow. A 777 designator 
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Table 1 (continued) 



Code 
(see Tabid 3) 


Type of Card 


Remarks 


6 


Variable -Lis ting 
Salectlon Desls- 
nator 
\\ or 4 cards) 
(optional) 


Is used If this Is last year of 
weapon system with more weapon 
systems to follow In this run. 
An 888 designator Is used if this 
Is last year of last weapon sys- 
tem of this rui. with more runs 
to follow. A 999 designator Is 
used If this Is last set of data of 
last run. Job is then terminated 
after this data set Is processed. 

Used to designate which variables 
are to be listed. Always used 
Immediately after set of data for 
which variables are to be listed. 
In that set of data F(120) = 1.0. 
If all variables are to be listed, 
a 9 Is entered In col. 1 of a 
separate card entered here. 
Otherwise, four cards are used 
with a 1 entered In column num- 
bers corresponding to addresses 
of variables to be listed. Ihe 
four cards may be thought of as 
containing cols 1...80, 81... 160, 
161... 240, and 241... 320, the first 
310 of which correspond to the 
F addresses. 
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Table 3 

DATA CARD ARRANGEMENT FOR TWO RUNS 



Type of Cards 



End -of -Data 
Designator 



Run 1 title card 

Constant input data [F(141)=1.0] 
F-variable listing (310 cards) 
Weapon system A title card 

Year 1 data [f(117)=1.0, F(120)=1.0] 
Variable Listing selection 
designators (1 or 4 cards) a 
Year 2 data 
Yeav 3 date 
Weapon system B title card 
Year 1 data 
Year 2 data 
Year 3 data 
Weapon system C title card 
Year 1 data 
Year 2 data 
Year 3 data 
Run 2 title card 

Constant input data (at least one card) 
Weapon system D title card 
Year 1 data 
Year 2 data 
Weapon system E title card 
Year L data 
Year 2 data 
Year 3 data 



*For this ex 
designator card was used since all 310 F 



iple whose outputs are discussed Inaction V, < 
iables were listed. 
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Table >, 

SUMMARY OF ADDRESS AND DATA FIELD LOCATIONS 



Address Fields 
Location (cols) 
(inteeer} 


Corresponding Data 
Field Location (cols) 
(real number) 


Implied Decimal Point 
Location for Data Field 
(between eols) 


1-3 


4-9 


6-7 


11-13 


14-19 


16-17 


21-23 


24-29 


26-27 


31-33 


34-39 


36-37 


41-43 


44-49 


46-47 


51-53 


54-59 


56-57 


6i-63 


64-69 


66-67 


71-73 


74-79 


76-77 



Address fields are also used for end-of-data designators (666, 
777, 888, or 999). The end-of-data designator is always the last 
entry of each year (set) of weapon system data. 
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V. PROGRAM OUTPUT S 

Examples of outputs generated by the program are depicted In Figs. 
4-17. The particular data shown are used only to Illustrate the types 
of outputs obtained from the program. The outputs represent the sys- 
tems listed In Table 3. In this example, both the Common Dump and vari- 
able listing are printed for the first year of weapon system A. Such 
listings are always printed on separate pages. Otherwise, the lines 
of output remain together for each weapon system. 

Each value listed in the weapon system output Is rounded to the 
nearest whole number except for the numbers of aircraft and simulators 
required (see, for example, Fig- 4). Values for these items are printed 
to two decimal places. As explained previously and noted on the out- 
put pages, all costs shown In the wef.pon system output are In thousands 
of dollars except for the operating cost per graduate, which Is In 
dollars . 

As an example of the use of the Common Dump '.sting, suppose that 
one Is interested In obtaining the value of the Instructor flying hours 
per student for all aircraft types In the long course. On the fifth 
page of Appendix A the address of this variable Is listed as 171, and 
In the Common Dump (Fig. 5) its value Is seen to be 42.5. Similarly, 
the value of the total ground school classroom hours (address 184) Is 
listed as 4676.496. These values are also obtained, of course, from 
the variable listing, Fig. 9. 

Finally, It should be noted that the page numbers start with 1 at 
the beginning of each run. This Is seen In Figs. 4 and 15. Otherwise, 
the pages are numbered consecutively within a run. 

*Figures 4-17 represent demonstration runs. Neither the inputs 
nor the outputs of those runs are Intended to be used for any other 
purposes. If any results from the APT program are to be used for of- 
ficial purposes, the inputs should be obtained from official sources. 
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LISTING OF APT COMPUTER PROGRAM VARIABLES 
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APT COMPUTER PROGRAM VARIABLES* 



INPUT LISTING 



WEAPON SYSTEM INPUTS 

001 WEAPON SYSTEM NUMBER 

002 YFAR NUMBER ( I. i 2.t 3.. . . . ETC.) 

003 ENTERING STUDENTS FROM SIMILAR AIRCRAFT 

004 ENTERING STUDENTS FROM DISSIMILAR AIRCRAFT 

005 ENTERING STUDENTS FROM OESK JOBS 

006 ENTERING STUOENTS FROM UNDERGRADUATE PILOT TRAINING <UPT) 

007 LENGTH OF LONG COURSE IWEEKS) 

008 LENGTH OF SHORT COURSE (WEEKS ) 

009 FRACTION OF ENTERING STUOENTS WHO GRADUATE — LONG COURSE 

010 FRACTION OF ENTERING STUOENTS WHO GRADUATE-- SHORT COURSE 

011 HOURS EACH STUDENT REQU IREO TO FLY — TYPE I AIRCRAFT, LONG COURSE 

012 HOURS EACH STUDENT REQU IREO TO FLY — TYPE 2 AIRCRAFT. LONG COURSE 

013 HOURS EACH STUDENT REQUIRED TO FLY — TYPE 3 AIRCRAFT, LONG COURSE 

014 HOURS EACH STUDENT REQUIRED TO F LY--TYPE I, SHORT COURSE 

015 HOURS EACH STUDENT REQUIRED TC FLY— TYPE 2, SHORT COURSE 

016 HOURS EACH STUDENT REQUIRED TO FLY— TYPE 3, SHORT COURSE 

017 SIMULATOR HOURS REQUIRED PER STUDENT — LONG COURSE 

018 SIMULATOR HOURS REQUIRED PER STUDENT— SHORT COURSE 

019 HOURS STUDENT REQUl RED TO ATTEND GROUND SCHOOL (GS ) — LONG COURSE 

020 HOURS STUDENT REQUIREO TO ATTEND GROUND SCHOOL (GS1— SHORT COURSE 

021 AVERAGE NO. STUDENT PILOTS ON STUDENT CREW— TYPE U LONG COURSE 

022 AVERAGE NO. STUDENT PILOTS ON STUDENT CREW — TYPE 2i LONG COURSE 

023 AVERAGE NO. STUOENT PILOTS ON STUDENT CRFW — TYPE 3, LONG COURSE 

024 AVERAGE NO. STUOENT PILOTS ON STUDENT CREW — TYPE 1, SHORT COURSE 

025 AVERAGE NO. STUDENT PILOTS ON STUOENT CREW — TYPE ?, SHORT COURSE 

026 AVFRAGE NO. STUDENT PILOTS ON STUOENT CREW — TYPE 3, SHORT COURSE 

027 HOURS INSTRUCTOR FLIES WITH EACH STUOENT— TYPF 1, LONG COURSE 

028 HOURS INSTRUCTOR FLIES WITH EACH STUDENT — TYPE 2, LONG COURSE 

029 HOURS INSTRUCTOR FLIES WITH EACH STUOENT— TYPE 3, LONG COURSE 

030 HOURS INSTRUCTOR FLIES WITH EACH STUDENT— TYPE l» SHORT COURSE 

031 HOURS INSTRUCTOR FLIES WITt: EACH STUDENT— TYPE 2, SHORT COURSE 

032 HOURS INSTRUCTOR FLIES WITH EACH STUDENT — TYPE 3, SHORT COURSE 

033 MAXIMUM HOURS PER YEAR INSTRUCTOR FLIES WITH STUOENTS 
P34 MAXIMUM SIMULATOR HOURS PER YEAR INSTRUCTOR SUPERVISES 

035 MAXIMUM TRAINER HOURS PER YEAR INSTRUCTOR SUPERVISES 

036 MAXIMUM GS HOURS PER YEAR CCTS INSTRUCTOR TEACHES 

037 MAXIMUM GS HOURS PER YEAR FTD INSTRUCTOR TEACHES 

038 AVG NO. STUOENT PILOTS CN SIMULATOR AT ONE TIME 

039 AVG NO. STUDENT PILOTS IN GS CLASSROOM AT ONE T 'ME — LONG COURSE 
C40 AVG NO. STUOENT PILOTS IN GS CLASSROOM AT ONE 1 IME— SHOR T COURSE 

-041 TRAINER HOURS REQUIRED PER STUDENT — LONG COURSE 

042 TRAINER HOURS REQUIRED PER STUOENT —SHORT COURSE 

043 FRACTION OF GS HOURS TAUGHT BY CCTS INSTRUCTORS— LONG COURSE 

044 FRACTION OF GS HOURS TAUGHT BY CCTS I NSTRUCTORS— SHORT COURSE 

O ■ ABBREVIATIONS LISTING ON LAST PAGE OF THIS APPENDIX. 
tRJC 
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045 AIRCRAFT ATTRITION PER 100000 FLYING HOURS — TYPE I 

046 AIRCRAFT ATTRITION PER 100000 FLYING HOURS — TYPE 2 (SEE 144 1 

047 OTHER FH CHARGED TO CREW TRNG 1FRACT. STUD.+SEP. INST. FH ) — TYPE 1 
046 CHER FH CHARGED TO CREW TRAINING (FRACTION STUDENT F H ) — TYPE 2 

049 OTHER FH CHARGED TO CREW TRAINING (FRACTION STUDENT FH) — TYPE 3 

050 FRACTION OF TOTAL FH OR COST ALLOCATED TO PILOT TRAINI NG — TYPE 1 

051 FRACTION OF TOTAL FH OR COST ALLOCATED TO PILOT TRAINING — TYPE 2 

053 TRAINING HOURS AVAILABLE PER YEAR ON ONE SIMULATOR 

054 TRAINING HOURS AVAILABLE PER YEAR ON ONE TRAINER 

052 FRACTION OF TOTAL FH OR COST ALLOCATED TO PILOT TRAINING — TYPE 3 

055 AVAILABLE FLYING HOURS PER YEAR — TYPE 1 

056 AVAILABLE FLYING HOURS PER YEAR — TYPE 2 

057 AVAILABLE FLYING HOURS PER YEAR — TYPE 3 

058 AIRCRAFT AVAILABLE AT BEGINNING OF FIRST YEAR — TYPE 1 

059 AIRCRAFT AVAILABLE AT BEGINNING OF FIRST YEAR — TYPE 2 
G61 SIMULATORS AVAILABLE AT BEGINNING OF FIRST YEAR 

060 AIRCRAFT AVA I LA8LE AT BEGINNING OF FIRST YEAR— TYPE 3 

062 TRAINERS AVAILABLE AT BEGINNING OF FIRST YEAR 

063 FIXED NUMBER OF INSTRUCTQR-SUPERV+ADMIN — SQON LEVEL 

064 VARIABLE NUMBER OF I NSTRUCTOR-SUPERV*ADM I N (PER INST . ) — SQDN LEVEL 

065 FIXED NUMBER OF ACAOEMI C-PROGRAM SUPERVISORS— SQUADRON LEVEL 

066 VARIABLE NO. ACAD-PROG SUPERVi PER STUD. IN STUD. LOAD — SQDN LEVEL 

067 TOTAL STANDARD-E VALUATI CN PERSONNEL REQUIREO 

068 AlRCRAFl MAINTENANCE PERSONNEL REQUIREO PER FLYING HOUR — TYPE 1 

069 AIRCRAFT MAINTENANCE PERSONNEL REUUIRSO PER FLYING HOUR — TYPE 2 

070 AIRCRAFT MAINTENANCE PERSONNEL REQUIRED PER FLYING HOUR— TYPE 3 

071 SIMULATOR OPER+MTC PERS AUTHORIZED PER SIMULATOR OR PER SIM HOUR 

072 TRAINER OPER+MTC PERS AUTHORIZED PER TRAINER 

073 FIXED NUMBER OF ADMINISTRATIVE PERSONNEL— WING LEVEL 

074 VARIABLE NO. AOMIN PERS — WING LEVEL I PER OPER*MTC PERSONNEL) 

075 FIXED NUMBER OF SUPPORT PERSONNEL 

076 VARIABLE NO. SUPPORT PERS (PER TOTAL STUDENT LOA0*OPER*MTCtADMIN) 

077 FRACTION OF GS CCTS INSTRUCTORS WHO ARE OFFICERS 
07B FRACTION OF GS CCTS INSTRUCTORS WHO ARE AIRMEN 

079 FRACTION OF GS FTD INSTRUCTORS WHO ARE OFFICERS 

080 FRACTION OF GS FTD INSTRUCTORS WHO ARE AIRMEN 

081 FRACTION OF I NSTRUCTOR-SUPERV+ADMI N (SQDN LEVEL) WHO ARE OFFICERS 

082 FRACTION OF INSTRUCTOR-SUPERV*ADMt N ( SQDN LEVEL) WHO ARE AIRMEN 

083 FRACTION OF AC AD-PROGRM SUPERV*ADMlN (SQDN LEVEL) WHO ARE OFFICERS 

084 FRACTION OF ACAD-PROGRM SUPERV + ADM I N (SQDN LEVEL) WHO ARE AIRMEU 

085 FRACTION OF AIRCRAFT MTC PERSONNEL WHO ARE OFFICERS 

086 FRACTION OF AIRCRAFT MTC PERSONNEL WHO ARE AIRMEN 

087 FRACTION OF SIMULATOR AND TRAINER MTC*OPER PERS WHO ARE OFFICERS 
0B8 FRACTION OF SIMULATOR AND TRAINER MTC*OPER PERS WHO ARE AIRMEN . 

089 FRACTION OF AOMIN PERSONNEL (WING LEVEL) WHO ARE OFFICERS 

090 FRACTION OF ADMIN PERSONNEL (WING LEVEL) WHO ARE AIRMEN 

091 FRACTION OF SUPPORT PERSONNEL WHO ARE OFFICERS 

092 FRACTION OF SUPPORT PERSONNEL WHO ARE AIRMEN 

093 FRACTION OF OFFICERS WHO ARE RATED 

094 HI N INCREASE IN Si UDENT LOAD BEFORE I.I. TRNG EQUIP*SPARES JUSTIF. 
095* I.I. COST PER A IRCRAF T — TYPE 1 

096 I. I. COST PER AIRCRAFT — TYPE 2 



O ALL COSTS (INPUT AND OUTPUT) ARE IN THOUSANDS OF DOLLARS EXCEPT THOSE 
RjC DENOTED BY (»). 
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097 I.I. COST PER AIRCRAFT—TYPE 3 

099 I.I. COST PER SIMULATOR 

099 I.I. COST PER TRAINER 

100 FRACTION OF I.I. SIMULATOR COST FOR SIMULATOR SPARES COST 

101 I.I. COST FOR TRNG EQU I P* SPARES PEP INCREASE IN STUDENT LOAD <S) 

102 OPERATING COST PER FLYING HOUR FOR DEPOT MTC — TYPE 1 (S) 

103 OPERATING COST PER FLYING HOUR FOR DEPOT MTC — TYpE 2 (S) 

104 OPERATING COST PER FLYING HOUR FOR DEPOT MTC — TYPE 3 IS) 

105 OPERATING COST PER FLYING HOUR FOR POL— TYPE 1 (*) 

106 OPERATING COST PER FLYING HOUR FOR POL — TYPE 2 ($) 

107 OPERATING COST PER FLYING HOUR FOR POL — TYPE 3 IS) 

108 OPERATING COST PER FLYING HOUR FOR MAT ER I AL — TYPE 1 U> 

109 OPERATING COST PER FLYING HOUR FOR MATERIAL — TYPE 2 (4) 

110 OPERATING COST PER FLYING HOUR FOR MATERIAL—TYPE 3 (SI 

111 OPERATING COST PER STUDENT FOR MUNITIONS — LONG COURSE IS) 

112 OPERATING COST PER STUDENT FOR MUNITIONS — SHORT COURSE IS) 

113 OPERATING COST PER STUDENT FOR AVERAGE TOY/PCS IS) 

114 OPERATING COST PER SIM PER YR FOR SIM MTC — MATERIAL? SERVICES 

115 OPERATING COST PER YEAR FOR TARGET RENTAL 

116 R AND 0 COST 

117 DUMP PRINTOUT DESIGNATOR I0./1.--DO NOT/DO PRINT DUMP) 

118 ZERO-OUTPUT DESIGNATOR 10. /I. —00 NOT/DO ZERO OUTPUT EXCEPT GRADS) 

119 CLEAR DESIGNATOR iO./l.— 00 NOT/DO ZERO OUT ALL F VARIABLES 

120 WEAPON SYSTEM VARIABLE-LISTING PRINT DESIGNATOR 



CONSTANT INPUTS 

121 BEGINNING YEAR IE.G., 1969) 

122 MIN INCREASE IN PERM PARTY BEFORE 1.1. EQU I P*SUPPL I ES JUSTIFIED 

123 I.I. COST FOR BASE SUPPCRT EQUIP*SPARES PER PERM PARTY INCREASE!*) 

124 I.I. COST FOR BASE SUPPLY INVENTORY PER PERM PARTY INCREASE (S) 

125 I.I. COST FOR PERM- PARTY- I NCR EASE TRAINING OFF BASE (SI 

126 I.I. COST FOR PERM-PARTY-INCREASE TRAVEL IS) 

127 OPER. COST PER YEAR FOR AVG PAY OF STUDENT (S) 

128 OPER. COST PER YEAR FOR AVG PAY OF PERU PARTY RATED OFFICER IS) 

129 OPER. COST PER YEAR FOR AVG PAY OF PERM PARTY NONRATED OFFICER (SI 

130 0°ER. COST PER YEAR FOR AVG PAY OF PERM PARTY AIRMAN ($) 

131 OPER. COST PER YEAR FOR AVG PAY OF CIVILIAN U> 

132 OPER. COST PER YEAR FOR AVG TOY OF PERM PARTY {$) 

133 OPER. COST PER YEAR FOR SERVICES — AVG PER PERSON ON BASE ($) 

134 OPER. COST PER YEAR FOR SUPPL I ES+EQU I P PER PERSON ON 8ASE IS) 
135* FRACTION OF SIMULATOR HOURS OR COSTS ALLOCATED TO PILOT TRAINING 

136 OPER. COST PER YEAR FOR SUPPORT ACFT—AVG PER PERSOt! ON BASE (SJ 

137 OPER. COST PER YEAR FOR PERM PARTY OFFICER TRAINING OFF BASE (SI 

138 OPER. COST PER YEAR FOR PERM PARTY AIRMAN TRAINING OFF BASE (*) 

139 OPER. COST PER YEAR FOR AVERAGE PCS PER PERM PARTY PERSON (S) 

140 FRACTION OF I.I. AIRCRAFT COST FOR AIRCRAFT SPARES COST 

141 VARIABLE-LISTING READ DESIGNATOR (O./l.— 00 NOT/00 READ VARIABLES) 
142* INSTRUCTOR LEAD/TOW FLYING HOURS PER STUDENT — TYPE 1, LONG COURSE 
143* INSTR.'CTOR LEAD/TOW FLYING HOURS PER STUOENT — TYPE 1. SHORT COURSE 
144* AIRCRAFT ATTRITION PER 100000 FLYING HOURS— TYPE 3 (SEE 045, 046) 
145* OPER. COST PER YEAR FOR TRAINER MTC PER T RNR-- M AT ER I AL , SERVICES 




>0N SYSTEM INPUT. SEE ALSO A3DRESSES 217. 218, AND 219. 



rn 



f 

! 
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CUTPUT LISTING 



INTERNAL COUNTERS 

146 PAGE NUMBER 

147 YEAR COUNTED 

148 END-OF-OATA DESIGNATOR 
U9 PASS COUNTER 



CURRENT YEAR PLUS STUDENT AND GRADUATE TOTALS 

150 CURRENT YEAR 

151 TOTAL ENTERING STUDENTS 

152 TOTAL ENTERING STUDENT S — LONG COURSE 

153 TOTAL ENTERING STUDENTS — SHORT COURSE 

154 TOTAL GRAOUATES-'-LONG Cl'URSE 

155 TOTAL GRADUATES — SHORT COURSE 

156 TOTAc GRADUATES 

157 AVERAGE NUMBER OF STUDENTS PER YEAR — LONG COURSE 
15B AVERAGE NUMBER OF STUDENTS PER YEAR— SHORT COURSE 

159 AVERAGE STUDENT LOAD FOR LONG COURSE 

160 AVERAGE STUDENT LOAD FOR SHORT COURSE 

161 TOTAL AVERAGE STUDENT LC1AD 



TRAINING HOURS 

162 TOTAL STUD NT FLYING HOURS—TYPE I, LONG COURSE 

163 TOTAL STUDENT FLYING HOURS— TYPE 2, LONG COURSE 

164 TOTAL STUDENT FLYING HOURS — TYPE 3, LONG COURSE 

165 TOTAL STUDENT FLYING HOURS— TYPE 1, SHORT COURSE 

166 TOTAL STUDENT FLYING HOURS— TYPE 2, SHORT COURSE 

167 TOTAL STUDENT FLYING HOURS— TYPE 3, SHORT COURSE 

168 TOTAL STUDENT FLYING HOURS— TYPE 1 

169 TOTAL STUDENT FLYING HOURS— TYPE 2 

170 TOTAL STUDENT FLYING HOURS — TYPE 3 

171 INSTRUCTOR FH PER STUDENT — ALL AIRCRAFT TYPES, LONG COURSE 

172 INSTRUCTOR FH PER STUDENT— ALL AIRCRAFT TYPES, SHORT COURSE 

173 TOTAL HOURS INSTRUCTOR FLIES WITH STUOENTS — LONG COURSE 

174 TOTAL HOURS INSTRUCTOR FI.1ES WITH STUDENT S — SHORT COURSE 

175 TOTAL HOURS INSTRUCTOR FLIES WITH STUDENTS 

176 TOTAL STUDENT SIMULATOR HOURS— LONG COURSE 

177 TOTAL STUDENT SIMULATOR HOUflS — SHORT COURSE 

178 TOTAL STUDENT SIMULATOR HOURS 

179 TOTAL STUDENT TRAINER HOURS — LONG COURSE 

180 TOTAL STUDENT TRAlNfiR HCURS — SHORT COURSE 

181 TOTAL STUDENT TRAINER HCURS 

182 TOTAL GROUND- SCHOOL CLASSROOM HOURS— LONG COURSE 

183 TOTAL GROUND- SCHOOL CLASSROOM HOURS—SHORT COURSE 

184 TOTAL GROUND- SCHOOL CLASSPOOM HOURS 

185 TOTAL GS CLASSROOM HOURS TAUGHT BY CCTS I NSTRUCTORS— LONG COUR E 

186 IOTAL GS CLASSROOM HOURS TAUGHT BY CCTS INSTRUCTORS— SHORT COURSE 

187 TOTAL GS CLASSROOK HOURS TAUGHT BY CCTS INSTRUCTORS 

188 TOTAL GS CLASSROOM HOURS TAUGHT BY FTD INSTRUCTORS — LONG COURSE 
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189 TOTAL GS CLASSROOM HOURS TAUGHT 8Y FTD I NSTRUCTORS — SHORT COURSE 

190 TOTAL GS CLASSROOM HOURS TAUGHT BY FTD INSTRUCTORS 

191 OTHER FLYING HOURS — TYPE 1 

192 OTHER FLYING HOURS— TYPE 2 
1<>3 OT>+ER FLYING HOUR S — TYPE 3 

194 TOTAL FLYING HOURS — TYPE 1 

195 TOTAL FLYING HOURS — TYPE 2 

196 TOTAL FLYING HOURS — TYPE 3 

197 FLYING HOURS CHARGED TO PILOT TRAINING— TYPE 1 

198 FLYING HOURS CHARGED TO PILOT /RArNING— TYPE 2 

199 FLYING HOURS CHARGED TO PILOT TRA I N I NG— TYPE 3 



EQUIPMENT REQUIREMENTS 

200 CURRENT INVENTORY — TYPE 1 

231 CURRENT I NVENTORY — TYPE 2 

202 CURRENT INVENTORY — TYPE 3 

203 CURRENT I NVENTORY — SIMULATORS 

204 CURRENT I NVENTORY — TRA I NERS 

205 AIRCRAFT REQUI RED — TYPE 1 

206 AIRCRAFT REQUIRED — TYPE 2 

207 AIRCRAFT REQUIREO — TYPE 3 

208 SIMULATORS REQUIRED 

209 TRAINERS REQUIREO 

210 AIRCRAFT TO BE PROCURED — TYPE 1 

211 AIRCRAFT TO BE PROCUREO — TYPE 2 

212 AIRCRAFT TO BE PROCURFD— T YPE 3 
2L3 SIMULATORS TO 86 PROCURED 

214 TRAINERS TO BE PROCURtO 

215 TOTAL INSTRUCTOR LEAO/TCW FLYING HOURS— TYPE 1, LONG COURSE 

216 TOTAL INSTRUCTOR LEAD/TOW FLYING HOURS—TYPL 1, SHORT COURSE 

217 RECURRING INVESTMENT COST FACTOR — TYPE 1 < WEAPON SYSTEM INPUT) 

218 RECURRING INVESTMENT COST FACTOR— TYPE 2 ( WEAPON SYSTEM INPUT! 

219 kECURRING INVESTMENT COST FACTOR— TYPE 3 (WEAPON SYSTEM INPUT J 

220 SIMULATOR HOURS CHARGEO TO PILOT TRAINING 



PERSONNEL REQUIREMENTS 

221 TOTAL FLYING INSTRUCTORS REQUIREO 

222 TOTAL SIMULATOR INSTRUCTORS REQUIRED 

223 TOTAL TRAINER INSTRUCTORS REQUIREO 

224 TOTAL GROUND- SCHOOL CCTS INSTRUCTORS REQUIREO 

225 TOTAL GROUND-SCHOOL FTD INSTRUCTORS RECUlREO 

226 TOTAL INSTRUCTORS REQUIREO 

227 TOTAL INSTRUCTOR SUPERVISORS AND AOMIN PERS REQU I RED — SQDN LEVEL 

228 TOTAL ACAD-PROGRAM SUPERVISORS ANO AOMIN PERS REQU IRED — SQDN LEVEL 

229 TOTAL STANDARO-EVALUAT I CN PERSONNEL REQUIREO 

230 TOTAL NONSTUOENT OPERATIONS PERSONNEL 

231 TOTAL AIRCRAFT MAINTENANCE PE R SONNE L-- TYPE 1 

232 TOTAL AIRCRAFT MAINTENANCE PERSONNEL- -TYPE 2 
2:3 TOTAL AIRCRAFT MAINTENANCE PERSONNEL — TYPE 3 
234 TOTAL AIRCRAFT MAINTENANCE PERSONNEL 

O TOTAL SIMULATOR MAINTENANCE ANO OPERATING PERSONNEL 

ERJC TOTAL TRAINER MAINTENANCE AND OPERATING PERSONNEL 
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237 TOTAL SIMULATOR AND TRAINER MAINTENANCE AND OPERATING PERSONNEL 

238 TOTAL OPERATIONS AND MAINTENANCE PERSONNEL 

239 TOTAL ADMINISTRATIVE PERSONNEL (WING LEVEL) 

240 TOTAL STUDENT LOAD + OPERATIONS + MTC + ADMINISTRATIVE PERSONNEL 

241 TOTAL SUPPORT PERSONNEL 

242 TOTAL PERSONNEL CHARGED TO PILOT TRAINING, INCLUDING STUDENTS 

243 TOTAL PERMANENT PARTY PERSONNEL 

244 TOTAL PERMANENT PARTY OFFICERS 

245 TOTAL PFRMANENT PARTY AIRMEN 

246 TOTAL PERMANENT PARTY MILITARY PERSONNEL 

247 TOTAL CIVILIANS 

248 TOTAL PERMANENT PARTY RATED OFFICERS 

249 TOTAL PERMANENT PART Y NCNRATED OFFICERS 

250 CHANGE IN STUOENT LOAD 

251 CHANGE IN TOTAL PERSONNEL. INCLUDING STUDENTS 

252 CHANGE IN TOTAL PERMANENT PARTY PERSONNEL 

253 CHANGE IN TOTAL PERMANENT PARTY MILITARY PERSONNEL 

254 CHANGE IN PERM. PARTY LESS CHANGE DUE TO ALLOC. FRACTION VARIATION 

255 ADJUSTMENT TO EL I M. EFFECT ON I.I. COST OF CHANGE IN ALLOC. FRACT. 

256 CUMULATIVE CHANGE IN STUDENT LOAD UNTIL THRESHOLD IS REACHEO 

257 CUMULATIVE CHANGE IN ADJ. PERM PARTY UNTIL THRESHOLD IS REACHEO 



INITIAL INVESTMENT COSTS (THOUSANDS OF DOLLARS) 



258 


I.I. 


COS f 


OF 


AIRCRAFT TC BE PROCURED — TYPE 1 


259 


I.I. 


COST 


OF 


AIRCRAFT TC BE PROCURED— TYPE 2 


260 


1. 1. 


COST 


OF 


AIRCRAFT TO BE PROCURED — TYPE 3 


261 


I.I. 


COST 


OF 


SIMULATORS TO BE PROCURED 


262 


I.I. 


COST 


OF 


TRAINERS TC BE PROCURED 


263 


I.I. 


COST 


OF 


AIRCRAFT SPARES—TYPE 1 


264 


I.I. 


COST 


OF 


AIRCRAFT SPARES — TYPE 2 


265 


I.I. 


COST 


OF 


AIRCRAFT SPARES— TYPE 3 


266 


I.I. 


COST 


OF 


SIMULATOR SPARES 


267 


I.I. 


COST 


OF 


TRAINING EQUIP AND SPARES FOR STUDENT LOAD INCREASE 


26B 


I.I. 


COST 


OF 


BASE SUPPORT EQU I P+iSPARES FOR PERM PARTY INCREASE 


269 


I.I. 


COST 


OF 


SUPPLIES FCR PERMANENT PARTY INCREASE 


270 


I.I. 


COST 


OF 


TRAINING FCR PERMANENT PARTY INCREASE 


271 


I.I. 


COST 


OF 


TRAVEL FOR PERMANENT PARTY INCREASE (PCS) 


272 


TOTAL INCREASE IN I.I. COST 



OPERATING COSTS AND TOTAL SYSTEM COST (THOUSANDS OF DOLLARS) 

273 OPERATING COST OF OEPOT MAINTENANCE 

274 OPERATING COST OF POL 

275 OPERATING COST OF MATERIAL 

276 OPFRATING COST OF TOTAL FLYING HOURS 

277 OPERATING COST OF MUNITIONS—LONG COURSE 
27C OPERATING COST OF MUN I T IONS— SHORT COURSE 

279 OPERATING COST OF STUDENT PAY 

280 OPERATING COST OF RATED OFFICER PAY 

281 OPERATING COST OF NONRATEO OFFICER PAY 

282 OPERATING COST OF AIRMEN PAY 

Jr^Zl OPERATING COST OF TOTAL PERMANENT PARTY , ILlTARY PAY 

K1LB4 OPERATING COST OF TOTAL MILITARY PAYi INCLUDING STUDENTS 
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285 OPERATING COST OF CIVILIAN PAY 

286 OPERATING COST OF TOTAL PAY — HI L I T ARY PLUS CIVILIANS 

287 OPERATING COST OF STUOENT TOY/P^S 

288 OPERA 1 1 NG COST OF ALL PERMANENT PARTY PERSONNEL TOY 

289 OPERATING COST OF SERVICES 

290 OPERA H'fi COST OF SUPPLIES ANO EQUIPMENT 

291 OPERATING COST OF SIMULATOR MTC, MATERIAL, ANO SERVICES 

292 OPERA V I NG COST Or TRAINER MTC. MATERIAL, ANO SERVICES 

293 OPERATING COST OF TARGET RENTAL 

294 OPERATING COST OF SUPPORT AIRCRAFT 

295 OPERATING COST OF OFFICERS TRAINING 

296 OPERATING COST OF AIRMEN TRAINING 

297 OPERATING COST OF PERMANENT CHANGE OF STATION 

298 TOTAL OTHER OPERATING CCST, INCLUDING RECURRING INVESTMENT 

299 TOTAL OPERATING COST, INCLUDING RECURRING INVESTMENT 

300 OPERATING COST PER GRADUATE 1$) 

301 TOTAL SYSTEM COST (INVESTMENT ♦ OPERATING), EXCLUDING R AND 

302 AIRCRAFT LOST TO ATTRITION— TYPE I 

303 AIRCRAFT LUST TO ATTRITION — TYPE 2 

304 AIRCRAFT LOST TO ATTR I T ION— T { PE 3 

305 RECURRING INVESTMENT COST {OPERATING COS T I— -TYPE I 

306 RFCURR I NG INVESTMENT COST (OPERATING COST)— TYPE 2 

307 RECURRING INVESTMENT COST (OPERATING COST ) — TYPE 3 

308 TOTAL AIRCRAFT RECURRING INVESTMENT COST (OPERATING COST) 

309 NOT USEO 

310 NOT USEO 
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ABBRE VI A T I QN S LISTING 



AC AO ACADEMIC 

ACFT AIRCRAFT 

AOMIN ADMINISTRATIVE 

ADJ. ADJUSTED 

ALLOC. ALLOCATION 

AVG AVERAGE 

CCTS COMBAT CREW TRAINING SCHOOHSJ 

EL I M . ELIMINATE 

EQUIP EQUIPMENT 

FH FLYING HOUR1S) 

FRACT. FRACTION 

FTD FIELD TRAINING DETACHMENT 

GS GROUND SCHCOL 

INST . INSTRUCTOR(S) 

I.I. INITIAL INVESTMENT 

JUSTIF. JUSTIFIEO 

MI N MINIMUM 

MTC MAINTENANCE 

NO. NUMBER 

OPER. OPERATING 

PCS PERMANENT CHANGE OF STATION 

PERM PERMANENT 

PERS PERSONNEL 

POL PETR0LEUM-0IL-LU8RICANTS 

PROG PROGRAM 

R AND 0 RESEARCH AND DEVELOPMENT 

SEP. SEPARATE 

SIM SIMULATOR(S) 

SUDN SQUADRON 

STUD. STUDENT(S) 

SUPFRV SUPERVISORS) 

TOY TEMPORARY DUTY 

TRNG TRAINING 

TRNR TRAINER! S ) 

UPT UNDERGRADUATE PILOT TRAINING 
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Appendix B 
FLOW CHARTS OF APT COMPUTER PROGRAM 
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MAIN ROUTINE 
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i 



RESTORE VALUES OF AIRCRAF 
RECURRING IN-'iSFMENT 
COST FACTORS 
F (217) = TEMP I 



SET VARIABLE-LISTING 
PRINT DESIGNATOR 
TO ZERO. 



1 



CALL SUBROUTINE I NCO 
CALCULATES INVESTMENT 
COSTS) 



CALL SUBROUTINE OXO 
(CALCULATES OPERATING 
COSTS) 
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SUBROUTINE READ 
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SUBROUTINE EQUIP (CONTINUED) 
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SIMULATOR MAINTENANCE 
4 OPERATING PERSONNEL 
FUNCTION OF SIMULATORS 

REQUIRED) 
= (235) f (071) -F (208) -f 035) 



MULATOR MAINTENANCE 
; OPERATING PERSONNEL 
(FUNCTION OF STUDENT 
SIMULATOR HOURS ) 



I 



)YAL PERSONNEL CHARGED 
TOPILOT TRAINING, 
INCLUDING STUDENTS 



RAfEO INSTRUCTORS 



SIMULATOR AND TRAINER 

MAINTENANCE AND 
OPERATING PERSONNEL 



TOTAL OPERA1IONS AND 
MAINTENANCE PERSONNEL 
(238) F(230)«F(234)>F(23; 




TOTAL ADMINISTRATIVE 
PERSONNEL (WING LEVEL) 
F(239) F(073)» F(074) • F(238) 



TOTAL PERMANENT-PARTY 

MILITARY PERSONNEL 
F (246) ^ F (244) ' F (2*5) 



10TAL STUDENT LOAD • 
OPERATIONS A MAINTENANCE • 

ADMINISTRATIVE PER50NNE 1 I 
F(240) = F(IAIW(23 8)»F(239) | 



I 



TOTAL PERMANENT-PAR 

RATED OFFICERS 
F(2*3) = F(093)- F(?4 



SUBROUTINE P^ERS (CONTINUED) 
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1 



DEPOT MAINTENANCE COST 
F(273) = (F(102)' F(197)» F(tOJV 
F[W)*F(IC4).F(1W))' 



POL COST 
- (F[I01)-F(I97)»F(I06)' 
F(1?8)«F(107)-F(199)). 



TOTAL PERMANENT-PARTY 
I MILITARY PAY 

| F (283) - F [760)* F (281) • F (26 



TOTAL MILITARY PAY, 
INCLUDING STUDENfS 
F (284) = F(279) • F (283) 



MATERIAL COST 
F(2tt)- (f(l06)-F(l?7)-F(109j- 
F( W8)+ F( 1 10)- F(199))- 



MUNITIONS COST -- SHORT COURSE 
F(278)- F (II?) • F (158) • 0.001 

— 



INI- F( 

I 



TOTAL PAY-MILITARY 
PLUS CIVILIANS 
F (286) ■ F (284) <- F (283) 



F(299 )= F (133) • F (242) • 0.001 | 



OTHER SUPPL IES AND EQUIPME NT 
COST 

F(290) = F (134)- F(2*2) ■ 0.001 



SIMULATOR MAINTENANCE , 
MAURIAL, AND SERVICES COST 
F(29I) = F(1I4)»F(208)-F(I35) 



TRAINER MAINTENANCE, 
MATERIAL , AND SERVICES COST 
F (292 )= F (1*5) • F (204) 



SUBROUTINE 0PC0 
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EoST I 



recurring investment cos1s... 
Aircraft types 1,2, &3 

c (305.1 = F (205) • F (095) . F (217) • F (050) 
- (304|= F (204) • F (094) • F (718) • F (051) 
F(3C7)= F(207)» F (097) • F(2i9). F (052) 



TOTAL AIRCRAFT RECURRING 
INVESTMENT COST 
= (308) = F (305) »F(306)»F (307) 



TOTAL OTHER OPERATING COST 
I) = F (277) * F (278) + F (287) + F (288) 
F(289)* F(290)» F(29l)» F(292) 
F(293>» F(?94)* F(295)» F(294) 
F(297>* F(3C8) 



TOTAL OPERATING COST INCLUDING 

RECURRING INVESTMENT 
F(W)= F (274) + f (284)* F(298) 



J OPERATING COST PER GRADUATE < S) I 



TOTAL SYSTEM COST, EXCLUOII .G PDTE 
F(30I)-F(27?)«F(2W) 




SU3R0UTINE OPCO (CONTINUED) 
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PR1NT WEAPON 5YSTEm\ 

NAME AND PAGE 
NUM8ER ON NEW PAGE, 
(NAME (I), 1-1, 10) 

IPAGE / 




• <T LINES < 58?^> line 


/ PRINT WEAPON SYSTIM \ 
/ NAME AND PAGE NUMBER 1 

ON NEW PAGE. 
\(NAME(l),l=1,l01 r IPAGE/ 




t 


1 STEP PAGE NUMBER BY*. 1 
| IPAGE = IPAGE ♦ 1 | 






( MINT SUBHEADINGS J 






1 INITIALIZE LINE COUNT. 1 
| LINES = 10 J 








PRINT ONE LINE OF 

(Ii(Jj, \,A), 
(F[J), J - JOi, 70S], 
(l!(J), J « 5, II) 



PRINT ONLY V EAR 



TOTAL NUMBER 

of gsaduates 

U',2) 



ID— 



SUBROUTINE OUTPUT 



72 



-67- 




SUBROtfTINE OUTPUT (CONTINUED) 
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Appendix C 

LISTING OF FORTRAN -IV (IBM 360/65) APT 
COMPUTER PROGRAM 
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C0MM0N F(310), TITLE(20), NAME 1 10),. 10(310), NAMES! 310, 17 ) 
DLMENS I ON F 1 ( 8 ) , 11(8) 

C 

C MAIN ROUTINE OF APT COMPUTER PROGRAM THAT DETERMINES COSTS OF 

C STUOENTS IN ADVANCED PILOT TRAINING SCHOOL (CCTS) 

C 

C SET ALL INPUT VARIABLES IN COMMON TO ZERO. 

10 DO 20 I * It 150 

F(l) • 0. 
20 CONTINUE 
F(217) = 0. 
F(218) - 0. 
F(219> * 0. 
ID1 = 0 

C SET VARIABLE-LISTING SELECTION DESIGNATORS TO ZERO. 

DO 25 I « I, 310 
10(1) = 0 
25 CONTINUE 
C SET PAGE NUMBER TO 1. 

30 1PAGE • « 
C SET PASS COUNTER TO ZERO. 

FIU9) - 0. 
C READ TITLE CARD. 

READ ',5, 40) (TITLE(l), 1 * 1, 201 
40 FORMAT (20A4) 
I * 0 

C READ CONSTANT INPUTS. 

50 READ (5, 60) (IKK), FUK)». K « 1, 8) 
60 FORMAT (8(13, F6.3, IX)) 

00 70 K = 1, 8 

IF (IKK) .EQ. 666) GO TO 80 

IF (IKK) .EQ. 0 • ANDk FKK) .EQ. 0.) GO TO 70 
IF (IKK) .GT. 216 .AND. IKK) .LT. 220) GO TO 65 
IF (IKK) .LE. 0 .OR. IKK) .GT. 145) GO TO 140 

65 I • IKK) 

F(I» » FKK) 

70 CONTINUE 
GO TO 50 

C PRINT TITLE AND PAGE NUMBER ON NcW PAGE 

60 WRITE (6, 90) (TITLE(I), I = 1, 20), I PAGE 

90 FORMAT ( 1H1/ 10X, 20A4, 26X, 5HPAGE • 12) 
C SET PAGE NUMBER TO 2. 

FU46I * 2.0 

IF (101 .EQ. 1 .OR. F( 141) .EQ. 0.) GO TO 100 
C READ IN ADDRESSES AND NAMES OF ALL F VARIABLES IF FiUl) = 1.0. 

92 RfrAD (5, 94) 1, (NAMES! I, J), J » 1, 17) 
94 FORMAT (13, 3X, 17A4) 

IF (I .NEi 310) GO TO 92 

101 - 1 

C SET CURRENT EQUIPMENT INVENTORIES TO ZERO. 

100 00 105 I » 200, 204 

F(l) * 0. 
105 CONTINUE 
C SET ZERO-OUTPUT DESIGNATOR TO ZERO. 

Fl 118) * ©. 
O SET YEAR COUNTER TO ZE40. 
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F(U7> = 0. 
C READ WEAPON-SYSTEM CARD 

READ (5, 110) !W, ( NAME ( I ), 1 = 1 . 10) 
110 FORMAT (12, 2X, 10A4> 
Ft 001} = [ W 

C SET ALL OUTPUT VARIABLES IN COMMON TO ZERO EXCEPT EQUIPMENT 

C INVENTORIES ANO AIRCRAFT RECURR I NG> INVESTMENT COST FACTORS. 

120 00 130 I * 151, 199 
F(I) * 0. 

130 CONTINUE 

C STORE VALUES OF AlftCRAF T RECURRING INVESTMENT COST FACTORS. 

TEMPI * F(217) 
TEMP2 = F(218) 
TEMP3 » F<219) 
DO 132 I ■ 205, 310 
fi I ) « 0. 
132 CONTINUE 

C RESTORE VALUES OF A IRC;* AFT RECURRING INVESTMENT COST FACTORS. 

F(217> * TEMPI 

FI218) - TEMP2 

FI2191 » TEMP3 
C SET VARIABLE-LISTING PRINT DESIGNATOR TO ZERO. 

FU20) - 0. 
C STEP YEAR COUNTER BY 1* 

FU47I * FIK7) ♦ 1.0 
C STEP PASS COUNTER BY 1. 

F(149» » FU49) ♦ 1.0 
C READ WEAPON SYSTEM INPUTS. 

CALL READ 

C CALCULATE TRAINING HOURS AND EQUIPMENT REQUIREMENTS. 

CALL EQUIP 

IF I Ft L 18) .EQ. 1.01 GO TO 135 
C CALCULATE PERSONNEL REQUIREMENTS. 

CALL PERS 
C CALCULATE INVESTMENT COSTS. 

CALL INCO 
C CALCULATE OPERATING COSTS. 

CALL OPCO 
C PRINT RESULTS. 

135 CALL OUTPUT 

IND » F(U8) *■ 0.5 
GO TO (120, 100, 30, 160>, I NO 
C PRINT ERROR MESSAGE 

140 WRITE <6 t 150) I v- 
150 FORMAT ( 1H0/ 10X, UOHAN ADDRESS FOR ONE OF THE INPUT CONSTANT 

C FACTORS HAS NOT BEEN ENTERED PROPERLY. THE LAST CORRECT* ADDRESS 
CWAS » 13, 1H. / 10X, 29HTHIS JOB HAS BEEN TERMINATED. ) 
CALL EXIT 
C PRINT END-0F-RUN STATEMENT 

160 WRITE (6, 170) 

170 FORMAT UH1/ 10X, 49HEN0 0.* FINAL RUN — ALL OATA HAVE BEEN 

C PROCESSED. I 
CALL EXIT 
END 




SUBROUTINE READ 

COMMON F (310) , TITLE(20)» IJAHE(IO),. 10(310), NA*<E S ( 3 I 0, I 7 ) 
DIMENSION HIS), 11(8} 

C 

C SUBROUTINE FOR READING WEAPON SYSTEM INPUT DATA 

C 

10 I ' 0 

C READ WEAPON SYSTEM INPUT DATA 

20 READ 15, 30) UUK), Ft IK), K ■ 1 1 8 ) 
30 FORMAT (8( 13, F6.3, IX) ) 
00 40 K - I, 8 
IF { 1 1 ( K } .GT. 665) GO TO 50 

IF (IHK) .EQ. 0 .AND. FllKl .EQ. 0.) 30 TO 40 

IF UUK) .GT. 216 .AND. IUK) .LT. 220) GO TO 35 

IF (Il(K) . LE . 0 .OR. IKK) .GT. K5I GO TO 60 
35 I = IKK) 

Fill * FKKl 
40 CONTINUE 

GO TO 20 

50 IF ( 1 1 tK ) . NE. 666 .ANO. IUK) .NE. 777 .AND. 1 1 1 K > . NE. 888 .AND. 
C IKK) .NE. 999) GO TO 60 
C CURRENT YEAR {BEGINNING YEAR «• YEAR NUMBER - 1.0) 

FU50) = FU21) * F(002) - ) .0 
C END-OF-DAT A DESIGNATOR 

C FU48) = 1.0 — END OF ONE YEAR'S DATA FOR ONE WEAPON SYSTEM 

C UUK) = 666) 

C FU48) * 2.0 — END OF FINAL YEAR'S DATA FOR ONE WEAPON SYS1EH 

C UUK) = 777» 

C FU4B) * 3.0 — END OF FINAL YEAR'S DATA FOR FINAL WEAPON SYSTEM. 

C GO TO NEW RUN* 

C UUK) ■ 888) 

C FU48) = 4.0 — END OF ALL RUNS 

C UUK) = 999) 

FU48) = UUK) - 500>/lOO 

IF IFU20I • EQ. 0.) RETURN 

READ (5, 55) (10(11. I * 1, 80) 

IF IIDI1I . EQ. 9) GO TO 80 

READ (5, 55) UDU ), I * 81, 1601 

READ 15, 55) UDU), I = 161, 240) 

READ (5, 55) UDU), t * 241, 305) 
55 FORMAT (8011) 

RETURN 

C WRITE ERROR MESSAGE 

60 WRITE (6. 70} I 

70 FORMAT UH0/10X, 107HAN ADDRESS FOR A WEAPON SYSTEM INPUT VARIABLE 
C HAS NOT BEEN ENTERED PROPERLY. THE LAST CORRECT ADDRESS WAS ,13, 
C 1H. / 10X, 29HTHIS JOB HAS BEEN TERMINATED. ) 
CALL EXIT 

C SET ALL VARIABLE-LISTING SELECTION DESIGNATORS TO 1. 

60 00 90 I * 1, 310 

IDU) * 1 
90 CONTINUE 

RETURN 
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SUBROUTINE EQUIP 

COMMON FI310). TITLE(20). NAME ( 1 01 i 10(310). NAMES ( 3 1 G , 1 7 ) 

C 

C SUBROUTINE FOR DETERMINING TRAINING HOURS AND EQUIPMENT 

C REQUIREMENTS 

C 

C TOTAL NUMBER OF ENTERING STUDENTS 

10 FU51) = F(003> + F1004) + F ( 005 » * F1006) 
C NUMBER OF ENTERING STUOENTS IN LONG COURSE 

Ft 152) = F ( 151 } - F(003) 
C NUMBER OF ENTERING STUDENTS IN SHORT COURSE 

F<153) = FI003) 

00 30 I = 1, 2 
C I * 1 — LONG CDURSE. 1=2— SHORT COURSE 

C NUMBER OF GRADUATES 

PI 1 + 153) » F( 1*8) * Ft 1*151) 

IF fF(llB) .EO* 1.0) GO TO 30 
C AVERAGE NUMBER OF STUOENTS PER YEAR 

FII+1561 * 0.5 * t F ( 1*151) ♦ FC 1 + 153) i 
C AVERAGE STUDENT LOADS 

F(I*158) « H 1*156) * FU+6) / 52.0 

Fl 1*170) ■ 0. 

00 20 J = 1, 3 

K » 3 * I ♦ J 

IF IFIK+17) .EQ. 0.) GO TO 20 
C STUDENT FLYING HOURS FOR AIRCRAFT TYPES 1, 2, AND 3 

FU + 158) » FII+156) * F(K*7) / FlK+17) 
C INSTRUCTOR FLYING HOURS PER STUDENT 

FU + 170) » FM + 170) ♦ (F(K*23I / F(K+17>) 
20 CONTINUE 

C NUMBER OF HOURS INSTRUCTOR FLIES WITH STUDENTS 

FII+172) ■ F(I*156> * FU+170) 
C TOTAL INSTRUCTOR FLYING HOURS IN LEAD/TOW AIRCRAFT TYPE L 

FU+214) ■ Fl 1*156) * F(UUl) 
C STUDENT SIMULATOR HOUftS 

IF IFI038) .NE. 0.) F(!*175) = FII+156) * FU + 16) / F1038) 
C STUDENT TRAINER HOURS 

F( 1*178) » Fl I *il 561. * FII+40) 
C NUMBER OF GROUND-SCHOOL CLASSROOM HOURS 

IF (Fll+38) .NE. 0.) Fl 1*1811 * FU+156) • FII+18) / Fll+38) 
C NUMBER OF GROUND-SCHOOL CLASSROOM HOUtS TAUGHT BY CCTS INSTRUCTORS 

Fl 1 + 1841 * F( 1*181 > * Fd+42) 
C NUMBER OF GROUND-SCHOOL CLASSROOM HOURS TAUSHT BY FTD INSTRUCTORS 

FlI+187) ■ FII+181) - FII+184) 
30 CONTINUE 
C TOTAL NUMBER OF GRADUATES 

FU56) * FI154) ♦ F(155) 

IF (FI118) .EQ. 1.0) RETURN 
C TOTAL AVERAGE STUDENT LOAO 

Fl 161 ) » F 1 159) + Fl 160) 
C TOTAL STUDENT FLYING HOURS AIRCRAFT TYPES 1, 2, ANO 3 

DO W I « li 3 

Fl 1*167) » Fl 1+1611 ♦ Fl 1+164) 
40 CONTINUE 

O TOTALS -- HOURS INST*u:TOR FLIES HIM STUDENTS, STJDENT SlMJLATO* 
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HOURS, STUDENT TRAINED HOURS, GS CLASSROOM HOJRS, GS CLASSRD01 
HOUR j TAUGHT BY CCTS, AND GS CLASSROOM HQJ^S T AU3 4 T 8Y FTD 

DO 50 I = It 16, 3 

F( 1*17*) = F( 1 + 172) ♦ F( 1*173) 
50 CONTINUE 

SET INVENTORIES OF-AI'CUFT TYPES, SIMULATORS, AN'J TRAINERS 
INITIALLY TO THOSE FDR BEGINNING YEAR. 

IF IFI147) .GT. 1.0) GO TO 70 

DO 60 I = 1, 5 

Fl 1*1991 - F( 1*57) 
60 CONTINUE 

DF = l0.**<-5) 
70 DO 90 I = 1, 0 

I « 1-3 — AIRCRAFT TYPES 1-3, 1=4 — SIMJLATORS, 1=5— 
TRAINERS 

S6V AIRCRAFT ATTRITION TERM INITIALLY TO ZERO. 
ATTR = 0. 

IF ( I .GT. 3) GO TO 80 

OTHER FLYING HOURS 

F< 1*190) = FU+46) * F(I*167) 

ADJUST OTHER FLYING HOURS FOR AIRCRAFT TYPE 1 TO INCLJDE LEAO/TOrf 
AIRCRAFT FLYING HOURS. 
IF (I .E'i. 1) FU91) = FI047) * IF(16B1 * F { 21 5 ) ♦ FI21S)) 
TOTAL FLYING HOURS 
FU + 193) = F(I*167) ♦ F(I*190) 

ADJUST TOTAL FLYING HOU*S FOR AIRCRAFT TYPE i TO INCLJDE LEAVFOH 

AIRCRAFT FLYING HOURS. 
IF (I .EO. 1) F I 19%) - F ( 19* ) ♦ F(215) ♦ FI216) 
FLYING HOURS CHARGED TO PILOT TRAIVIMS 
F( 1*196) - Fl 1*49) * Fl U193) 
NUMBER OF AIRCRAFT REQUIRED 

IF IF(1*54) ,.Nc. 0.) FU*204) = FII*193) / F<I*54) 
GO TO 172, 74, 76), I 
NUM8ER OF SIMULATORS REQUIRED 
72 IF (F1053) .NE. 0.) FI208) * F(178) / FI053) 
NUMSER OF TRAINERS REQUIRED 

IF IFI054) .NE. 0.) FI209) * FI181) / FI05O 

NUMBER OF TYPE 1, TYPE 2 AIRCRAFT TO 8E PROCURED FOR ATTRITION 
74 FC K-301 1 « FII*44) * FU*193) * DF 
ATTR « F(I*30l) 
GO 70 80 

NUMBER OF TYPE 3 AIRCRAFT TO BE PROCURED FO* ATTRITION 
76 FI304) « FU44) * F C 196 1 * DF 
AT! R « FI304) 

TOTAL NUMBER OF AIRCRAFT, SIMULATORS, ANO TRAINERS TO BE PROCJUU 
80 Fl 1*209} * F(I*2D4) - FU*199) ♦ ATM 

IF NUMBER TO BE PROCURED IS LESS THAN ZERO, SET NJMBER TO ZERO. 
IF (Fl 10209) .LT. 0.) F(I*209) = 0. 

CURRENT INVENTORY 3F AHCRAFT TYPES, SIMULATORS, »N> TIAINEIS 
Fl 10199) « Ft 1*199) ♦ F ( 1 4-209) - ATTR 
90 CONTINUE 

SIMULATOR HOJRS CHARGED TO PILOT TRAINING 

F(.>20) « FI178) ♦ FU35) 

RETURN 

END 
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SUBROUTINE PERS 

COMMON F(310) t TITLE(20>, NAME(lO»» ID(310), NAHE S ( 3 L 0, 1 7 ) 
DIMENSION T (8 I 

SUBROUTINE FOR DETERMINING PERSONNEL REQUIREMENTS 

NUMBER OF FLYING INSTRUCTORS REQUIRED 

IF (F(033) *NE. C) F(22l) = F C 1 75 1 / F(033) 

NUMBER OF SIMULATOR INSTRUCTORS REQUIRED 

IF <F<034) .NE. 0.1 FI2221 = Ft 1 781 / F<03<») 

NUMBER OF TRAINER INSTRUCTORS REQUIRED 

IF <F(035) .NE . 0.) F(223> * F | 1811 / F (035 J 

NUMBER OF GROUND-SCHOOL CCTS INSTRUCTORS REQUIRED 

IF (F<036) .NE. O.t F(22*) = F<187> / F(036l 

NUMBER OF GROUND-SCHOOL FTD INSTRUCTORS REQUIREO 

IF (F1037) .NE. 0.) FI225I = FU90) / FI037I 

TOTAL INSTRUCTORS REQUI RED 

F(226) «= F(221J ♦ F(222) ♦ FI223) ♦ F(22<v) ♦ F 1225) 

NUMBER OF INSTRUCTOR SUPERVISORS AND AOH i NI S TRAT 1 V E PERSONNEL 

REQUIREO (SQUADRON LEVEL ) 
F(227) * FI0631 ♦ F(06M * F1226I 

NUMBER OF ACADEMIC -PROG RAM SUPERVISORS AND ADMINISTRATIVE 

PERSONNEL REQUIRED (S3UA0R0N LEVEL ) 
F(228) * FI065J ♦ F(066) * F(16)) 

NUMBER OF STANDARD-EVALUATION PERSONNEL REQJIREO 
F(229) = F1067) 

TOTAL NONSTUDENT OPERATIONS PERSONNEL 
FC230I * FI226) ♦ F(227) ♦ F1228) ♦ F1229) 

NUMBER OF MAINTENANCE PERSONNEL FOR AIRCRAFT TYPES 1, 2, AND 3 
DO 20 I ■ 1, 3 

F< 1*2301 ■ F( 1*67) * F< 1*196) 
20 CONTINUE 

TOTAL AIRCRAFT MAINTENANCE PERSONNEL 
FI234I = FI231) ♦ FI232) ♦ F<233> 

NUMBER OF SIMULATOR MAINTENANCE AND OPERATING PERSONNEL (FUNCTION 

OF NUMBER OF SIMULATORS REQUIRED) 
FI235I • F(071l * F(208> * Ft 155) 

NUMBER OF SIMULATOR MAINTENANCE AND OPERATING PERSONNEL (FUNCTION 

OF SIMULATOR HOURS CHARGED TO PILOT TRAINING) 
IF (F(07l> .LT. 1.0) F(235) - FI071I * F(220l 
NUMBER OF TRAINER MAINTENANCE AND OPERATING PERSONNEL 
FI236) * FI072) * F1204) 

TOTAL SIMULATOR AND TRAINER MAINTENANCE AND OPERATING PERSONNEL 

FI237) * FI235) ♦ FI236) 

OPERATIONS AND MAINTENANCE PERSONNEL 

FI2381 - FI230) ♦ FI234) ♦ FI237I 

ADMINISTRATIVE PERSONNEL < MING LEVEL) 

F 12391 « FI073) ♦ FI07U * FI2381 

TOTAL STUDENT LOAD ♦ OPERATIONS * MAINTENANCE PERSONNEL * 

ADMINISTRATIVE PERSONNEL 
FIMO) » Fi 161) ♦ F(238) ♦ F(239) 
TOTAL SUPPORT PERSONNEL 
F(241) * F(075) ♦ FI076) * F(2*0) 

TOTAL PERSONNEL CHARGEABLE TO PILOT TRAINING, INCLUDING STUDENTS 
FI242I - FI240) ♦ FI2U) 
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C TOTAL PERMANENT PARTY PERSONNEL 

F1243) = F(2*2> - FIL61I 
C RATED INSTRUCT3RS (TEMPORARY VALUE ) 

TEMP = F{ 221 ) ♦ FI222) + F(223> F<229> 

C TOTAL PERMANENT PARTY OFFICERS 

FI2<»4) = TEMP ♦ F(07?) * F< 22*1 ♦ F1079) + F(225] ♦ 

C F(08i) * F(227l ♦ F(083) * F(228) ♦ F<085> * F(234) ♦ 

C F<087) * F 1 237 ) ♦ FI0B9) * F(239) ♦ F(09l) * F(2<tl) 

C TOTAL PERMANENT PA^TY AIRMEN 

F<2*5) * FI078) * F122U ♦ F<080) * FJ225) ♦ F1082) * FI227) ♦ 

C F(08<U * F1228J ♦ F<08S>) * F 1 2 3* ) ♦ FI088) * F(237l ♦ 

C F(090) ♦ FJ239J ♦ F10921 * F ( 2*1> 

C TOTAL PERMANENT PA*TY MILITARY PERSONNEL 

F<2«6) = F(2**> ♦ F<2*5> 
C TOTAL CIVILIANS 

FI247) = F<2*3) - FI2*6) 

C TOTAL PERMANENT PARTY RATED OFFICERS 

F«2*8) = F1093) * FI2«<») + TEMP * (1.0 - F (093) 1 

C TOTAL PERMANENT PA*TY NONRATEO OFFICERS 

F1249) = F(2*<f> - FI248) 

C * (1.0 ♦ F(07<m * U.O ♦ F(076>) 

0 = 0. 

IF (FU47) .EO. 1.0) GO TO 40 
C STUOENT LOAD CHANGE 

F(250> = FIL61J - T(*l 

C TOTAL PERSONNEL CHANGE, INCLUDING STUDENTS 

FI251) = F( 2A2) - T(5) 

C CHANGE IN TOTAL PERMANENT PARTY PERSONNEL 

F<252> = F1243) - T(6) 

C CHANGE IN TOTAL PERMANENT PARTY MILITARY PERSONNEL 

F(253) = F(2*6) - T(7) 

DO 30 I = It 3 

0*0* ((F(U49l - TU)) * F(U67> * F ( I ♦ 1 ? 3> ) 
30 CONTINUE 

IF (FI071I. .LT. 1.) 0 * 0 ♦ (FU35I - T(8i) * F(178) ♦ F(071) 

IF <FI071) . GE. 1.) D * 0 ♦ IFU35) - T(8)) * FI20BJ * F(371) 

C ADJUSTMENT TO ELIMINATE EFFECT ON INVESTMENT COST OF CHANGES IV 

C ALLOCATION FRACTIONS 

40 F(255) « C * 0 

C PERMANENT PARTY CHANGE LESS CHANGE OUE TO VARIATIONS IN ALLOCATION 

C FRACTIONS 

F<254> « F(252» - F1255) 
C STORE M050J, F(051)i F1052), F1161). FI242), F(2<t3>, FI246). 
C AND Ft 135). 

T(l) « F(050> 

T<2> « F(05l) 

T(3) « FI0521 

TU> « F(16l) 

T(5) « FI2A2) 

r ( 6 1 « F<2*3) 

TIT) ■ FI246) 

T(8) « F1135) 

RETURN 
O END 

ERIC 
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SUBROUTINE INCO 

COMMON FI310), TITLE(20)» MAKE S 101 « [OOiO), NAME S ( 313*17) 

C 

C SUBROUTINE FOR DETERMINING INVESTMENT COSTS 

C 

10 [>0 20 I = 1. 5 
C COST OF AIRCRAFT, TRAIVl-RS, AND SIMULATORS TO 8E PROCJRED 

F<1*257» = FU+94) * FII+209) 
IF I I «GT « 3) GO TO 20 
C ALLOCATE AIRCRAFT PROCUkF^NT COST TO PILOT TRAINING. 

F( 1*257) « FU+257) * FU**9) 
C COST OF AIRCRAFT SPARES 

FU+262) = F1140) * FU+257) 
20 CONTINUE 

C ALLOCATE SIMULATOR PROCUREMENT COST TO PILOT TRAININ3. 

F( 261 ) * F(261) * F( 135) 
C COST OF SIMULATOR SPARES 

FI266) = F(100) * F(261 ) 

IF (FI147) .GT. 1.0) SO TO 30 

51 = 0. 

52 = 0. 

30 SI = SI ♦ FI250) 
S2 = S2 ♦ F<254) 
F<256) = SI 
F(257) = S2 

IF (SI .LT. F<094)) GO TO 40 
C COST OF TRAINING EQUIPMENT AND SPARES FOR STUDENT LOAD INCREASE 

C WHEN JUSTIFIED BY THE INCREASE 

F<267) * F(101) * SI * 0.001 

51 = 0. 

40 IF IS2 .LT. FU22J) GO TO 50 
C COST OF BASE SUPPORT E3UIPMENT AND SPARES FOR PERMANENT PART V 

C INCREASE HHEN JUSTIFIED BY THE INCREASE 

F(268> = FU23) * S2 * 0.001 
C COST OF SUPPLIES FOR PERMANENT PARTY INCREASE rfHEV JUSTIFIED 3 i 

C THE INCREASE 

FI269) » FU24) * S2 * 0.001 

52 ' 0. 

C COST OF TRAINING FOR PERMANENT PARTY INCREASE 

50 F1270) = FI125) * F( 254) * 0.001 
C COST OF TRAVEL ( PCS) FOR PERMANENT PARTY INCRFASE 

F1271) « FI126) * FI25*) * 0.001 

IF (FI270) .LT. 0.) FI270) 0. 

IF ( F< 27 1 ) .LT. 0.) F1271I « 0. 
C TOTAL INCREASE IN INVESTMENT COST 

00 60 I " 258, 271 

F(272) « FI272J ♦ F(l) 
60 CONTINUE 

RETURN 

END 
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SUBROUTINE OPCO 

COMMON F!310>* TITLE! 20) , NAME f 10) , 10(310), NAMES ( 313*17) 

C 

C SUBROUTINE FOR CALCULATING OPE RAT I Nu C3STS 

C 

C DEPOT MAINTENANCE COST 

10 F1273) -= »FU02)*F( 197) ♦ F ( 103 ) *F( 198 ) ♦ F( 10*» I *F (199) ) * 0.031 
C POL CflST 

F<27<*> = (FU05)*F( 197) ♦ F(106)*FU9b) f F ( 1 07 > +F U 9 ? ) ) * D.ODl 
C MATERIAL COST 

F(275> = 1F(108)*F(197) ♦ F ( 109 > *F 1 1 98) ♦ F ( I 1 0 ) *F ( 1 99 ) I * O.DDL 
C TOTAL FLYING-HOUR COST 

FI276) = F(273) ♦ F(27<*J ♦ F(275 ) 
C MUNITIONS COST — LONG COURSE 

F(277) * Ft 111) * F( 15T) * 0.001 
C MUNITIONS COST — SHORT COURSE 

FI278) <* FU12) * FI15B) * 0.001 
C PAY — STUDENTS 

F(279) * F(127> * F(161> * 0.001 
C PAY ~ RATED OFFICERS 

F4260) = F(128) * F(248) * 0.C01 
C PAY -- NONRATED OFFICERS 

FI281) « F(129) * FI249) * O.OOL 
C PAY — AIRMEN 

F<282) = F(130) * F(245) * 0.001 
C PAY — TOTAL PERMANENT PARTY MILITARY 

F(283) «= F<280) ♦ F(281) ♦ F(282) 
C PAY — TOTAL MILITARY, INCLUDING STUDENTS 

F(28*» - FI279) «■ FI283) 
C PAY — CIVILIANS 

F(285» * F(l3l) * FI247) * 0.001 
C TOTAL PAY — MILITARY PLUS CIVILIANS 

F(286l = FC284I ♦ FI285) 
C TDY/PCS — STUDENTS 

F<287) « FJ113) * F<151) * 0.001 
C TDY -- ALL PERMANENT PARTY PERSONNEL 

F(288) » F (132) * F1243I * 0.001 
C SERVICES COST 

FI289) * FI133) * F1242) * 0.001 
C OTHER SUPPLIES AND EQUIPMENT COSTS 

F(290> * FI130 * F<2*2) * 0.001 
C SIMULATOR MAINTENANCE* MATERIAL, AND SERVKES COST 

p(29ll ■ FHUI * FI208J * F(135) 
C TRAINER MAINTENANCE. MATERIAL* ANO SERVICES 

FI292) - F(U5) * F<204) 
C TARGET RENTAL 

F{293) « F(115) 
C SUPPORT AIRCRAFT COST 

FI294) * FI136I * F(242) * 0.001 
C OFFICERS TRAINING COST 

F(295) • FU37) * F(2*%) * 0.001 
C AIRMEN TRAINING COST 

FI296) * FU38I * F{ 2451 * 0.001 
C PERMANENT CHANGE OF STATION 

9 FI297) « F(139) * F<2*3) * 0.001 
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RECURRIMG INVESTMENT COSTS -- AIRCRAFT TYPES 1, 2, 3 

F1305) = F(205> * F(095) * F(217) * F<050l 

F)306> = FI206) * F(096) * FI218) * F(051) 

F(307) = F(207l * F ( 097 ) * F(219) * F(052) 

TOTAL AIRCRAFT RECURRING INVESTMENT COST 

F(308> = F(305) ♦ F<306> ♦ F<307) 

TOTAL OTHER OPERATING COST 

F(298) = F( 277) ♦ F<278> ♦ F{287) ♦ F(288) ♦ F(.'89) ♦ F4290) 
C FI291) ♦ F(292) ♦ F<293> ♦ FI290 ♦ F(295) + F1296) 

C FI297) ♦ F(308) 

TOTAL OPERATING COSTi I^CLU3IN3 RECURRING nVtESTMtNT 

F(299) = F(276) ♦ F<286) ♦ F(298> 

OPERATING COST PER GRADUATE <*) 

IF (F(156) .N£. 0.) Ft300) = F(299) * 1000. / F(l5bl 

TOTAL SYSTEM COSTi EXCLUDING R AND D 

F<301> = F1272) ♦ FI299) 

RETURN 

END 
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SUBROUTINE OUTPUT 

COMMON F(3lOI, NTLE<20), NAME ( 10) » ID(310J, NAMES ( 31 Ot 1 1 > 
DIMENSION 11(12) 

C 

C SUBROUTINE FOR PRINTING OUTPUT 

C 

C FIX PAGE NUMBER. 

10 I PAGE * FU46) * 0.5 
C PRINT WEAPON SYSTEM HEADING FOR FIRST YEA*. 

IF (F(U7> cGT. 1.0) GO TO 60 

IF tF(149> . EQ. 1.0) GO TO 30 

WRITE (6, 70) (NAME(I)t I = l» 10), I PAGE 
C STEP PAGE NUMBER BY 1. 

I PAGE « I PAGE 4- 1 

GO TO *5 

30 WRITE (6, 40) < NAME I I >, I = 1, 10) 

40 FORMAT (1H / 52X, 10A4 / 29X, 82-1ULL OUTPUT COSTS EXCEPT 

C OPERATING COST PE* GRADUATE ARE IN THOUSANDS OF DOLLARS.) / ) 
C PRINT SUBHEADINGS. 

45 WRITE (6, 50) 

50 FORMAT ( 1H / 37X» 3I3HN0., 6X) , 50X, 2(4X, KHOPER) / 2U, 3HAV3, 
C *X, 4HPERM t 4X, 6HTYPE 1, 3X, 6HTYPE 2, 3X, 6HTYPE 3i <»X, 3HN0., 
C HX, 6HFLYING, 13X» 5H0THER, 4X, 5HT0TAL» '+X, 4Hi»LUS, 2X, 
C 8HC0ST PER / 12Xt 3HN0., 5X, 5HSTUD., 3X, 5HPART Y » <»X, 
C 3UHACFT, 5X>, 4HSIMS, 5X» 3HINV, 6X, 4HH3UR, KXt 2UH0PER, 5X), 
C 3HINV t 5Xt OHGRAD f IX, 4HYEAR, 6X, 4HGRAD, 5X, 4HL3AD, *X, 
C SUPERS , 5X, 4I3HRE0, 6X), 2MHC0ST, 5X), IX, 3HPAY, 
C 3(5X, 4HCDST), 4X, 3HU) / I 
C INITIALIZE LINE COUNT. 

LINES - 10 

IF (F( U9) .EQ. 1.0) LINES = 12 
C FIX DATA TO BE PRINTED. 

60 IKll * FU50) ♦ 0.5 
11(2) * FU56) ♦ 0.5 
11(3) * F { 161 1 ♦ 0.5 
11(4) = F(243) ♦ 0.5 
11(5) » Fl 272) ♦ 0.5 
11(6} * F(276> ♦ 0.5 
11(71 « F(286> ♦ 0.5 
11(8) - FI298) + 0.5 
11(9) * F(299> ♦ 0.5 
11(101 » F ( 301 I + 0.5 
11 (It) * F( 300) ♦ 0.5 
11(12) * F(116) ♦ 0.5 
IF (LINES .LT. 58> GO TO 90 
C PRINT HEADINGS AND PAGE NUMBER ON NEW PA3E. 

WRITE (6, 70) (NAME ( I ) , I * 1, 10), I PAGE 
70 FORMAT ( 1H1/ 52X, 10A«, 27X, 5HPAGE , I 2/2 9< « 82H( ALL OUTPUT COSTS 
CEXCEPT OPERATING COST PER GRADUATE A*E IN THOUSANDS 3*= DOLLARS. )/> 
C STEP PAGE NUMBER BY 1. 

1PAGE • 1 PAGE ♦ 1 
80 WRITE (6, 50) 
C SET LINE COUNT TO 10. 

j LINES » 10 

[£ PRINT ALL DATA, 
an 
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90 IF (FIU8) .E0. 0.) WRITE (6, 100) ( [ I < J) , J = 1 » <*), 
C (FCJ), J = 205, 208>, (IKJ), J = 5, m 
IF t H t 118) .EQ. 1.0) WRITE (6, 100) 11(1), 11(2) 
100 FORMAT (IX, 14, IX, 3(18, IX), 4IFS.2, IX), 6(18, IX), Ed) 
C STEP LINE COUNT BY I. 

LINES * LINES + 1 
IF (F( 11 7) .EQ. 0.) GO TO 150 
WRITE (6, 70) (NAME(I), I = 1, 10), I PAGE 
C STEP PAGE NUMBER BY 1. 

IPAGE * IPAGE + 1 
WRITE (6, 110) 

110 FORMAT (1H0/// 58X, 11HC0KM0N DUMP /// 8X, IH1, 11X, HZ, IK, 

C 1H3, 1LX, 1H4, UX, 1H5, 1 IX. 1H6, 11X, 1H7, 1 IX, 1H8, 11X, H9, 
C 10X, 2H10, 6X, 9HA0DRESSES //) 
C PRINT COMKON DUMP. 

00 130 I * 1, 310, 10 
J » I ♦ 9 

WRITE (6, 120) (FIX), < = I, J), I, J 
120 FORMAT (IX, 101 F 11.3, IX), 2X, 1 >* , H-, U) 
130 CONTINUE 

150 IF (FU20) . EQ. 0.) GO TO 180 

WRITE (6, 70) (NAME ( I ), I = 1, 10), I PAGE 
C STEP PAGE NUMBER BY 1. 

IPAGE » 1PAGF. * 1 

WRITE (6, 155) 
155 FORMAT ( IH /) 

ITEMS - 0 

C PRINT AOORESS, NAME, AND VALUE OF EACH F i/AU ABLE SO DESIGNATE}. 

00 170 I = 1, 310 

IF UOU) • NE . 1) GO TO 170 

WRITE (6, 160) I, (NAMES! I, J), J = 1 , 17). HI) 
160 FORMAT (20X, 13, 3X, 17A4, 7X, F15.5) 
C STEP ITEM COUNT 8Y 1. 

ITEMS * ITEMS ♦ 1 

IF (ITEMS .LT. 53) GO TO 170 

WRITE (6, 70} (NAME ( J ) , J = 1 » 10), I PAGE 
C STEP PAGE NUMBER BY 1. 

1 PAGE « IPAGE ♦ 1 
WRITE (6, 155) 

C RESET ITEM COUNT TO ZERO. 

ITEMS * 0 
170 CONTINUE 

180 IF mil7) + FI120) . EQ. 0.) GO TO 200 
IF (FIU8) . EQ. 1.01 GO TO 190 
WRITE (6, 220) 11(12) 
C SET LINE COUNT TO 45 

LINES » *5 
GO TO 2- j 

190 WRITE (6, 70) (NAME It), I * 1, 10), I PAGE 
WRITE (6, 50) 
C STEP PAGE NUK8ER BY I. 

IPAGE - IPAGE ♦ 1 
C SET LINE COUNT TO 10. 

LINES * 10 
O GO TO 230 
ERJO° !F (FtUB) .KO. 1.0) GO TO 230 
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IF (LINES .IT. 561 GO TO 210 
WRITE (6, 70) ( NAME ( I ) » I = 1, 10), IPAGE 
C STEP PAGE NUMBER BY 1. 

IPAGE * I PAGE ♦ I 
210 WRITE (6, 220> 11(12) 

220 FORMAT ( IHO/ 10X, 17HR AND D COST = , 18) 
C FLOAT PAGE NUMBER. 

230 F( 146) = I PAGE 

IF (FU20) . EQ. 0.) GO TO 250 

00 240 I = I, 310 

10(11 = 0 
240 CONTINUE 

250 IF (F1119) . EQ. 0. .AND. F(H8) . NE . 3. > RETURN 
C CLEAR ALL WEAPON SYSTEH INPUT VARIABLES IN COMMON. 

DO 260 I =" 1 1 120 

FID * 0. 
260 CONTINUE 

00 270 I = U2, 144 

F(I) = 0. 

FU+75) = 0. 
270 CONTINUE 

F(135) = 0. 

H145) ■= 0. 

RETURN 

END 
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